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Abstract 


In this first technical report for the investigation of the effect 
of atmospheric dust on the estimation of total ozone from the earth's 
ultraviolet reflectivity measurements, we will describe two computer 
algorithms developed for this investigation. These algorithms can be 
used for computing the azimuth-independent component of the intensity of 
the monochromatic radiation emerging at the top a pseudo-spherical (see 
H4 of §1) atmosphere with arbitrary vertical distribution of ozone, and 
with any arbitrary height-distribution of up to two different kinds of 
aerosol. This atmospheric model is assumed to rest on a surface obeying 


Lambert's law of reflection. 



I. INTRODUCTION 

Ozone is perhaps the single most critical minor stratospheric con- 
stituent because its vertical distribution directly affects the deposi- 
tion of energy in the stratosphere, while its total amount determines 
the ultraviolet radiation reaching the biosphere. Within the past dec- 
ade, under the concern of increasing pollutant concentrations due to 
accelerated industrial and technological development, the stability of 
the stratospheric ozone layer has been questioned repeatedly. Because 
of this, considerable attention is being given currently to the problem 
.of reliable and continuous measurement of atmospheric ozone on a global 
scale. 

One of the techniques well suited for this purpose is a thorough 
analysis of the measurements of the earth's ultraviolet reflectivity. 

An accurate monitoring of this quantity on a global scale has been under- 
way for the last six years, by Dr. Heath and his associates at NASA with 
the help of the Backscatter Ultraviolet double monochromator (BUV) aboard 
the NIMBUS-IV satellite. A more sophisticated version of this BUV exper- 
iment has been also accepted for the NIMBUS-G satellite under the lead- 
ership of Dr. D. F. Heath. This forthcoming experiment referred to as 
SBUV/TOMS (Solar and Backscatter Ultraviolet/Total Ozone Mapping System) 
is expected to be operational sometime during the calendar-year period 
1977-1978. 

The foundation of the analytic procedure currently used by the BUV 
team for estimating total ozone in a unit column from the reflectivity 
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measurements of the earth-atmosphere system underneath, a set of com- 
puted quantities [Mateer, Heath, and Krueger, 1971]. This set of quan- 
tities is computed after taking into account all orders of scattering, 
and following a modification of the procedure discussed by Dave [1964]. 
These computations are performed for nonhomogeneous pseudo-spherical 
models of the terrestrial atmosphere with different distributions of 
ozone, but without any aerosols or water-droplets. In this current BUV 
analytic procedure, contributions to the outgoing radiation due to scat- 
tering and/or absorption by aerosol are only approximately accounted for 
through the concept of the effective surface albedo which may or may not 
be equal to the reflectivity of the real, underlying surface. Accuracy 
and the confidence level of this current BUV analytic procedure can be 
considerably enhanced by using simulated measurements of the reflectivity 
of the earth-atmosphere system (with different compositions) in the cur- 
rent ozone-estimation program, and comparing the estimated total ozone 
and effective surface albedo with the actual input parameters. Such a 
numerical experiment requires computation of the backscattered radiation, 
for a multitude of cases arrived at after combining various input param- 
eters such as wavelength, solar zenith angle, ground reflectivity, ozone 
amount, and composition, size-distribution as xjell as height-distribution 
characteristics of aerosols. 

The purpose of this first technical report is to describe a set of 
computer algorithms (FORTRAN IV language) specially developed for evalu- 
ating the azimuth-independent component of the intensity of scattered 
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radiation emerging at the top of a pseudo-spherical atmospheric model 
with an arbitrary vertical distribution of ozone, and with arbitrary 
height-distributions of up to two different kinds of aerosols. The model 
is assumed to rest on a Lambert ground of reflectivity R. By pseudo- 
spherical , we mean that the sphericity of the atmosphere is only partly 
accounted for; viz., by computing attenuation suffered by the incoming 
solar radiation for the actual spherical case [see Eqs. (21), (22)] and 
by correcting the nadir angle of observation for the satellite’s altitude 
above the underlying ground. 

Computer requirements and the basic information needed for running 
these algorithms on an IBM 370 computer under VM-CMS are given in the §II 
of this report. In §III, we have described, in some detail, the method 
of the direct numerical solution of the Spherical Harmonics Approximation 
to the radiative transfer equation which is used by us for computing the 
emergent radiation after including all orders of scattering within the 
atmospheric model. Further information of help in understanding the 
mechanics of the actual computational procedures, is given in §IV. List- 
ing of the actual FORTRAN statements, as well as input for, and output 
from a test run are given in §VII, VIII, and IX, respectively. 

In a second Technical Report with the same title as this one, we 
propose to describe the results of a critical analysis of the ozone- 
estimation procedure currently being used by the BUV team. This analysis 
will be performed by making use of simulated measurements at five wave- 
lengths (viz. , 0.3125, 0.3175, 0.3312, 0.3398, and 0.3800 pm), and along 
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the local nadir direction, for atmospheric models without any aerosols 
or water droplets. The recommendations resulting from this analysis 
will be used to develop a new procedure for the analysis of the simu- 
lated measurements along the local nadir direction for the SBUV/TOMS 
configuration where an additional measurement at 0.3600 pm will also be 
available. 

In Technical Report III, we propose to investigate the effect of 
changes in atmospheric aerosol characteristics on the estimated total 
ozone , and on the estimated effective surface albedo , for both the BUV 
(viz., five wavelength) and the SBUV/TOMS (viz., six wavelength) config- 
urations. This effect will be investigated for both configurations by 
making use of simulated measurements along the local nadir direction 
pbtalned with the help of algorithms described in the following sections 

II. OPERATING INSTRUCTIONS 

Computations of the azimuth- independent component of intensity of 
the scattered radiation emerging at the top of a pseudo-spherical atmo- 
sphere with any arbitrary vertical distribution of ozone and/or aerosols 
by making use of the procedure discussed in §III and IV, require use of 
two algorithms, viz., SITAA, and SITBB. The first program (SITAA) is 
used for generating a dataset which is repeatedly used by the second 
program (SITBB). As such, the program SITAA has to be executed only 
once. These programs written in the FORTRAN IV language were developed, 
debugged, tested, and executed via an IBM 2741 Communication Terminal 


attached to an IBM 370/145 computer running under VM-CMS, and using the 
FORTRAN H extended, optimizer level 2, compiler. A 3-raegabyte virtual 
machine with an attached 3330 disk space of 40 cylinders was used for 
this purpose. 

2.1 File Definition Statements : A total of seven datafiles with the 

corresponding file definition statements listed below, are required dur- 
ing execution of the program SITBB for a given atmospheric model. They 
are used in the direct-access mode. 


FI 11 DISK FILE FTllFOOl 
FI 12 DISK FILE FT12F001 
FI 13 DISK FILE FT13F001 
FI 14 DISK FILE FT14F001 
FI 15 DISK FILE FT15F001 
FI 16 DISK FILE FT16F001 
FI 17 DISK FILE FT17F001 


A4 (XTENT 101 RECFM F 
A4 (XTENT 101 RECFM F 
A4 (XTENT 101 RECFM F 
A4 (XTENT 101 RECFM F 
A4 (XTENT 101 RECFM F 
A4 (XTENT 200 RECFM F 
A4 (XTENT 128 RECFM F 


LRECL 10000 BLKSIZE 10000 
LRECL 10000 BLKSIZE 10000 
LRECL 2200 BLKSIZE 2200 
LRECL 2200 BLKSIZE 2200 
LRECL 2004 BLKSIZE 2004 
LRECL 8720 BLKSIZE 8720 
LRECL 20000 BLKSIZE 20000 


All datafiles are created under the A4 mode, and using a fixed for- 


mat (RECFM F) . The file number 11 contains 101 records (XTENT 101) of 
10000 byte length each. For the simulated access methods under CMS 
(filemode A4) , this file occupies a total of 1263 blocks of 800 byte 
length each. Similarly the files 12 through 17 occupy 1263, 278, 278, 
254, 2180, and 3200 blocks, respectively. 

These file definition statements must be executed before asking for 
the running of the main program. 
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The quantities stored in these datafiles will be described at the 
appropriate time in §IV. 

2.2 Program SITAA : This program is used to compute, and to store on 

the disk as DISK FILE FT15F001, values of the integral 

exp(“ t/u) P^(y) dy 

for values of the parameters x and ji given by x=0.00 (0.01) 5.00, and 
£, = 0 (1) 100, respectively. Values of this integral for all 501 values 
of the parameter x but for a given value of the subscript £., are 
stored as the record no. (£ + 1) in the datafile no. 15. This integral 
appears in Eq, (20). 

Input to this program consists of the values of the zeros of 
[values of y (to 7 places after the decimal point) at which 
closest to zero for the given value of l\ arranged in increasing order 
of y for a given £, and then in the increasing order of the subscript 
£ (see §VII). The format for punching this information on cards is 
5F10.7, 16X, 14. 

Values of the above-mentioned integral are also obtained as an out- 
put in the printed form if, and only if, computations are completed for 
all desired values of the subscript £. 

2.3 Input for SITES : Beside the dataset on the disk file no. 15 de- 

scribed in the preceding section, there are four additional sets of in- 
put to this program. The first set is related to input of the following 




parameters : 


Parameter Name Punched Card Format 

NMOD, NBLYR 2110 

I, GTH(I), PRTH(I), OZOTH(I), 15, OP2F10.2, OPFIO.5, 1P2E11.2 
STDUST(I), and TPDUST(I) 

TEMA, TEMB 2F10.5 

The parameter NMOD represents the atmospheric model number. Each 
atmospheric model for which computations are to be performed should be 
assigned a unique number between 1 and 200. This is because all scat- 
tered-radiation information for this model required for further investi- 
gation, is stored as record no. NMOD in the datafile no. 16. 

The second parameter NBLYR represents the number of basic layers 
into which a given atmospheric model is divided. This parameter should 
be greater than zero, and less than or equal to 32. 

The third input parameter I represents the serial number of a 
basic layer in the model, with 1=1 corresponding to the topmost lay- 
er. The input parameters GTH(I) , PRTH(I), OZOTH(I), STDUST(I), and 
TPDUST(I) represent geometric thickness (km), pressure thickness (mb), 
ozone thickness (atm-cm), number of particles (in a one sq. cm. column 
of a layer) for a kind of aerosol to be referred to as the stratospheric 
aerosol, and number of particles for another kind of aerosol to be re- 
ferred to as the tropospheric aerosol in the I-th layer, respectively. 
The last two input parameters of this first set of input are the tempor- 
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ary constants TEMA and TEMB. They act as scalar multipliers to the in- 
put values of STDUST(I) and TPDUST(I), respectively. 

The second set of input consists of a single card punched with the 
format 15, 3F10.4. It contains the quantities ILDA (serial number of 
the wavelength), ALDA [wavelength of the monochromatic radiation for 
which computations are to be performed (in ym)], TAUBSR [Rayleigh scat- 
tering optical thickness of the standard terrestrial atmosphere at sea- 
level for the wavelength ALDA (X)], and OZABS (absorption coefficient of 
one atm-cm of ozone to the base e) . 

If there are any particles of the stratospheric aerosols, the pro- 
gram calls for a third set of input consisting of the following quanti- 
ties: 

Quantity Format 

BLDA, TITB(5), TITB(6), NMXST, OP3F10.5, 15, 1P2E15.5, 3A4 
BSCAST, BABSST, TITB(9), TITB(IO), 
and TITB(ll) 

COFAS(L) five values per card, 1P5E13.5, 15 

and LM 

The quantity BLDA must be equal to ALDA within ± 0.001, otherwise the 
program will be terminated with an appropriate message. The TITB vector 
represents the quantities to be used for creating a composite title for 
the model. The quantities TITB(5) and TITB(6) represent the real and 
the imaginary part of the refractive index of the stratospheric aerosol 
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material, respectively. The normalized scattering phase function of a 
unit volume of the stratospheric aerosol [size distribution function 
stored in locations TITB(9), TITB(IO) and TITB(ll), and the refractive 
index (m = ni-in 2 ) of its material stored in locations TITB(5) and 
TITB(6)] at the wavelength BLDA, is represented by a Legendre series 
with NMXST terms. The volume scattering and volume absorption coeffi- 
cient per average particle of this aerosol distribution are given by 
BSCAST and BABSST, respectively. The coefficients of the above-mentioned 
Legendre series are represented by COFAS. The parameter LM represent- 
ing the serial number of the very first coefficient punched on a COFAS 
card, is used to see if all COFAS cards are arranged in proper order. 

If not, the program is terminated with an appropriate message. 

If there are any particles of the tropospheric aerosols, the pro- 
gram also calls for a fourth set of input consisting of the quantities 
BLDA, TITB(7), TITB(8), NMXTP, BSCATP, BABSTP, TITB(12), TITB(13), 
TITB(14), COFAT, and LM. The definition of these quantities can be ob- 
tained by replacing the word ’’stratospheric” in the preceding paragraph, 
with the word ’’tropospheric." 

The third and fourth input datasets can be generated by using the 
program developed by the author under another NASA contract [Dave, 1972] . 

As mentioned earlier, the proposed ozone-estimation program for the 
NIMBUS G satellite calls for measurements of the back-scattered radia- 
tion at six different wavelengths, viz., 0.3125, 0.3175, 0.3312, 0.3398, 
0.3600, and 0.3800 ym. Thus, for creation of the entire record no. NMOD 

10 
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on the datafile no. 16, It is necessary to follow Input sets 2, 3, and 
4, described above with corresponding sets for the remaining five wave- 
lengths. To avoid any confusion, it is advisable to arrange all wave- 
lengths in their increasing order, and refer to the 0.3125 um wavelength 
with ILDA=1, and the 0.3800 ym wavelength with ILDA=6. 

It should be pointed out that for each of these six wavelengths, 
computations are carried out for a total of eleven different cases of 
illumination; ten unidirectional ones from above (i.e., ten different 
values of the solar zenith angle Sg), and the eleventh case of the iso- 
tropic illumination from below. These ten values of Og, viz., 0®, 45®, 
60®, 70°, 75.6®, 79.6®, 82.5°, 84.7°, 86.7°, and 90° are given by a data 
statvement in the subroutine LEGFUN (§4.3) called by SITBB. Furthermore, 
for each of these eleven cases of illumination, azimuth-independent com- 
ponent of the intensity of the scattered radiation emergent at the top 
is calculated for 18 different values of the nadir angle 9 . The scan- 
ning mechanism of the TOMS Instrument on the NIMBUS-G satellite (a cir- 
cular orbit with a nominal altitude of 955 km above the mean sea-level) 
is planned to step through eighteen 3° steps from the nadir to horizon, 
i.e., 0' =0® (3°) 51°. A value of 9 corresponding to a given value of 
0’ is also computed within the LEGFUN subroutine by using the formula 

sin 0 = (7326/6371) sin0’ , (1) 

where the radius of the earth is taken to be equal to 6371 km. 
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2.4 Output from SITBB ; For an atmospheric model containing both strato- 
spheric and tropospheric aerosols, the printed output consists of the 
following seven sets for each of the six wavelengths. In addition, the 
record number NMOD in the datafile no. 16 is also created. 

The first set of output is essentially a reproduction of the input 
atmospheric parameters GTH(I), PRTH(I), etc. The input values of the 
Legendre coefficients for the stratospheric and tropospheric aerosols 
of a given refractive index, and for the wavelength under investigation, 
are reproduced in the second and the third sets, respectively. The 
fourth set of the output neatly summarizes all optical information about 
the atmospheric model for the wavelength currently under Investigation. 

The fifth set of output can be understood only after some knowledge 
of the mechanics of the method of direct numerical solution of the 
spherical harmonics approximation to the radiative transfer equation. 

The Legendre series representing the scattering phase function of mole- 
cules consists of the first three terms only, while those for the strato- 
spheric: and tropospheric aerosols consist of NMXST and NMXTP terms, 

' i ^ 

respectively. A provision is made to accommodate values of NMXTP or 
NMXST as high as 300. Experience has shown that nothing of practical 
value is gained by computing higher-order scattering contribution with 
all non-vanishing terms of the Legendre series [Dave, 1975]. Hence, 
for values of NMXST and/or NMXTP > 40, the Legendre series is terminated 
when a preselected and pretested criterion is satisfied. In other 
words, higher-order scattering contribution (i.e., except for the first 
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scattering of the direct beam illuminating the atmosphere from the out- 
side) to the emergent radiation is represented by the P -th approxima- 
tion where (L+1) < NMXST and/or NMXTP. The first line of this fourth 
set gives the order of the P_ approximation used in the evaluation of 

Ij 

the higher-order scattering contribution. 


As mentioned in §2.3, the atmospheric model is divided into NBLYR 
number of basic layers. In order to maintain the accuracy in computa- 
tion, all basic layers with optical thickness greater than 0.02 are di- 
vided into sublayers so that the optical thickness of no sublayer ex- 
ceeds 0.02. A provision is made in the program to accommodate up to 300 
sublayers. The program is terminated with an appropriate message if the 
number of sublayers required should exceed 300. 

After dividing the basic layers Into sublayers, positions of sever- 
al sublevels are selected for performing stabili^sing transformations on 
a matrix (F^) representing the optical characteristics of the model. A 
provision is again made to accommodate cases requiring such a stabilizing 
transformation of the F. matrix at up to 100 points. The program is 
terminated if a particular case requires more than 100 conditioning 
points. If not, the second part of the fourth set of output contains 
information about the level number and optical depth of all sublevels at 
which such stabilizing transformations are to be performed. Such a sub- 
level is called a conditioning point. 

Further information about this stabilizing transformation will be 
provided in §3.4. It is sufficient to state here that this F^ matrix 
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is a rectangular matrix of the order (L+1) x (L+l)/2, and that perfor- 
mance of a stabilizing transformation on it requires an inversion of its 
top-half. The following message is printed out after attempting to in- 
vert the top-half of at a given conditioning point; THE TOP HALF 

OF THE F SUB J MATRIX INVERTED AFTER N ITERATIONS FOR CONDITIONING POINT 
NUMBER If the attempt is successful, the quantity II in this mes- 
sag|e carries a positive vaxue and computations proceed further. If the 


attempt is unsuccessful, the quantity N has a zero, or a negative val- 

! 

ue. In this latter case, the program is terminated. The criteria used 
for selecting the total number of conditioning points for a given run 
are based on extensive numerical investigations previously carried out 
by the author and his colleague [e.g., Dave and Canosa, 1974]. However, 
if the program should terminate with a negative value for the quantity 
N, it can be re-run by increasing the number of conditioning points 
(§3.4). 


The last part of the fifth set of the output is a message stating 
that the linear system of equations (§3.3 and 3.4) has been solved suc- 
cessfully for a given illumination of the atmosphere from the outside. 


The sixth set of the printed output is related to the directly 
transmitted and diffusely transmitted, as well as diffusely reflected 
fluxes passing through various basic levels of the model. Values of 
the net fluxes are also printed out. These quantities are for tt units 
of energy passing through a unit area normal to the direction of inci- 
dence if the incident radiation is unidirectional (i.e., solar radiation 


14 



at the top) , and for ir units of energy passing through a horizontal 
unit area at the bottom if the incident radiation is isotropically dis- 
tributed. The value of the quantity SEAR representing the diffuse flux 
reflectivity of the model for the case of isotropic illumination from 
below, is also printed out at the bottom of this sixth set [see Eq. (2) 
below] . 

The azimuth-independent component of the intensity of the scattered 
radiation emerging at the top of the model is a function of the follow- 
ing six parameters: wavelength (X), total ozone amount in the model 

(S^), pressure at the base of the model (P) , Lambert reflectivity of the 
ground (R) , and the directional parameters 9 q and 0. (It also depends 
upon various characteristics of aerosols present in the model, and also 
to some extent, on the vertical distribution of ozone.) Its value for 
a given value of R can be expressed as follows as the sum of two terms 
[see Eqs. (20), and (23), and also §3.5]: 

I(X, S2, P, R, 0, 6o) = I(X, P, R = 0, 6, 0o) 

T(X, n, P. 0, 9 q) R 

+ ( 2 ) 

1 -RS(X, fi, P) 

No dependence on the azimuth angle appears because we are dealing only 
with the azimuth-independent component. The first term on the right 
hand side of Eq. (2) is the intensity of the emergent radiation in the 
absence of any ground reflection. The quantity T(X, Q, P, 0, Oq) repre- 
sents total (direct plus diffuse) transmission by the atmospheric model 


15 


in the direction 6 when the atmosphere is illuminated from below by 
the isotropic radiation. The quantity S(X, P) was described in the 
earlier paragraph. Further information about these quantities can be 
found in §3.1. 

The last set of the printed output is a table containing values of 
I(X, 52, P, R = 0, 0, 0o) and T(X, fi, P, 0, 0 q) for 10 different values of 
0Q, and 18 different values of 0 given in §2.3. The value of the 
quantity S(X, 52, P) is also repeated at the end of this output. 

! Summarized information about the model along with values of 
I(X, 52, P, R= 0, 0, 0 q), T(A, 52, P, 0, 0q), and S(X, 52, P) for all six 
wavelengths, and various 0, 0 q combinations wherever applicable, are 
stored as the record number NMOD in the file no. 16 for future use. 

III. THEORY 

3.1 Definitions ; In this subsection, we will provide brief defini- 
tions of various quantities required in understanding the spherical har- 
monics approximation to the equation of radiative transfer for the 
azimuth- independent component of the scattered radiation in a plane- 
parallel atmosphere. 

Parameter y; The direction of propagation is denoted by the 

I 

zenith angle (0 = cos"^ly|) which the direction makes with the local 
zenith. A negative (positive) sign before y will imply the radiation 
traveling along the downward (upward) direction. 
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Normal optical thickness ; For an atmospheric model with scatter- 
ing by air molecules, absorption by ozone, and scattering as well as 
absorption by two different kinds of aerosols of interest to us, the 
optical depth t of a level h km above the ground is given by 




The first component, of t is given by 


( 3 ) 


(s,R) . 




p(h) dh , 


( 4 ) 


(s R) 

where k' * is the mass Rayleigh scattering coefficient of air at the 

wavelength A under investigation, and p(h) is the density of air at 


height h. To a very good first approximation, the value of the Ray- 
leigh scattering optical thickness ’ at any atmospheric level car 

be obtained from the value of (Rayleigh scattering optical 

thickness of the entire atmosphere), by making use of the following re- 
lationship: 


(s,R) y_(s,R) _ , 

' b ^^^b ’ 


( 5 ) 


where p and Pj^ are the atmospheric pressures at the level under con- 
sideration and at the bottom of the atmosphere, respectively. The sec- 
ond component, T , of the normal optical thickness due to absorption 
by ozone is given by 


T = a (h) , 


( 6 ) 
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where a is the pressure and temperature independent absorption coef- 
ficient of ozone at the wavelength X, and J2(h) is the amount of ozone 

/ g 5^ ^ 

in atm-cm above the level h. The third and fourth components, * 
fa ST^ 

and T '■ * \ ot T are due to scattering and absorption by the strato- 

spheric aerosol, respectively. Similarly, the last two components of 
T are due to the presence of the tropospheric aerosol in the model. 

The optical thickness, due to the y type of aerosol and x 

type of the process is obtained from the following relationship: 

^(x.y) . (7) 


where is the total number of average particles of the y-kind 

of aerosol in a column of 1-cm^ cross-section above the level h km 

— Cx 

above the ground, and 3 is the x kind of volume cross-section 

for the y-kind of aerosol. Values of for a spherical poly- 

dispersion made from a material of known refractive index (m = n^ - i n 2 ) , 
and for a given wavelength can be computed by making use of the programs 
developed under another NASA contract by the author [Dave, 1972] . 


Albedo of single scattering : Also of interest are the albedos of 

single scattering of a unit volume due to molecules, and stratospheric 
as well as tropospheric aerosols. If Ax is the incremental optical 
depth at the level x, then these quantities are respectively given by 


and 


Ujj^(x) = Ax^®*^^/Ax , 

“ Ax^®*^'^Vax , 
^TpCt) = Ax^®’^^Vax 


( 8 ) 
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The and are incremental optical 

depths c;i level t due to molecules, stratospheric aerosols, and 
tropospi)/,, aerosols, respectively. 

^^fel llzed scattering phase function ; This quantity represents, 
on a rel.|( scale, the fraction of incident energy scattered by a unit 
volume i(| ^ level t in the direction y, <j> when that volume is illum- 
inated direction y’, <j)’ . ((}> or (j>* represents the azimuth 

angle of , 

direction of propagation referred to an arbitrarily chosen 
meridian yVane.) This quantity, P(t; y, <j>; y’, ij)'), can be represented by 
a Fourisis series whose argument is ((})’ -<})). Accordingly, 

QQ 

P(t; y, (j), y' , (j)') = I (t; y, y') cos n(<))' - (ji) . (9) 

n=0 

I ■ . 

We will consider the P^^\T; y, y') coefficient of this series as 

our inte.^^gj. restricted to the azimuth- independent component of the 

intensity scattered radiation. A value of P^^^(x;y,y') is 

given b> 

00 

y, y’) = I A. (t) P (y) P (y ’ ) , (10) 

A=0 ^ ^ ^ 

:.) are the ordinary Legendre polynomials, and coefficients 
vziven by 

the normalized Legendre coefficients for Rayleigh scattering 
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where P 
A^(t) at 


Values e. 


are as follows: Aq^^^=» 1, A2^*^^=0.5, and for > 2, A = 0. 

X/ 

(ST) (TP) 

The normalized Legendre coefficients A. and A representing 

J6 

the normalized scattering phase function of a unit volume of the strato- 
spheric and tropospheric aerosols, respectively, are functions of the 
wavelength under investigation, refractive index of the aerosol materi- 
al, and size distribution of aerosol particles. Their values can be 
obtained by making use of the programs used for generation of the quan- 
tity described in the preceding paragraph. It should be added 

(R) (ST) (TP) 

that the Legendre coefficients A^' ^ , Aj^^ ' and ^ are so normal- 

ized that integration of their respective scattering phase functions 
over a solid angle of 4tt, yields a value of 4ir. 

Intensity : The intensity of a beam of monochromatic radiation of 

wavelength \ is defined as the amount of energy per unit wavelength 
interval at X flowing per unit time in a cone of unit solid angle with 
its axis coinciding with the direction of propagation of energy. Let 
I(t; p, 4>; '*Uo» ‘i’o) intensity of the scattered radiation emerging 

at a level t, in the direction y, (p. [The parameters (-Po» 4>o) repre- 
sents the direction of incidence of the incoming solar radiation with 
cos 00.1 This intensity is also a function of several other param- 
eters such as magnitude of the energy incident upon the atmosphere from 
outside, optical characteristics of the atmospheric model, and reflec- 
tivity of the surface underlying the atmosphere. This quantity 
I(t; u, 4i; - Po> ‘t’o) also be expressed in a Fourier series of the 

form given by Eq. (9). However, we are only interested in the azimuth- 
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Independent component of this series, viz. , ; jj, - Pq) which we 

will, henceforth, refer to as I(T;u,-iao) for brevity. 

For an atmospheric model resting on a perfectly absorbing surface 
and illuminated at the top by the direct solar radiation with the solar 
zenith angle Sq, the quantity I(t = 0; y, - Uq) corresponds to the first 
term on the right hand side of Eq. (2) provided X, fi, P, and other 
parameters of the model are understood to be the same for both. 


We can also define the Intensity I(t = 0; y, iso) representing the 
scattered radiation emerging at the top of the same atmospheric model 
when it is illuminated by an isotropically distributed radiation of 
unit strength from below. The second term T(X, n, P, 0, 0 q) appearing in 
the second term on the right hand side of Eq. (2) can be obtained after 
multiplying the quantity [l(T = 0; .y, iso) + exp(- T^/y )] /it by the sum of 
the direct solar flux and diffuse sky flux emerging at the level 
for the appropriate value of 6 q. 

Intensity moments ; The ii-th Legendre moment of the intensity is 
defined as follows: 




f^(r; x) = 


'-1 


I(t; y, x) dy . 


( 12 ) 


where x = - yo represents the case of unidirectional Illumination from 
above, and x = iso represents the case of isotropic illumination from 
below. 


3.2 Spherical Harmonics Approximation : The method for deriving a spher- 



ical harmonics approximation to the equation of radiative transfer for 
the azimuth-independent component of the scattered radiation in a plane- 
parallel atmosphere is well known and is available in the open litera- 
ture. We will therefore only enumerate its final form in this section. 
Readers interested in further details on this subject are referred to 
several recent publications on this subject [e.g., Dave and Canosa, 

1974; Dave, 1974 and 1975]. The following is a concise form of the 
P^-th Spherical Harmonics Approximation (the parameter L is allowed 
to have only odd values to keep Intensity moments continuous across 
interfaces of different layers); 

^ + c(t) f (t; x) =s(t;x), (13) 

— dT . 

where A is a bidiagonal matrix given by 

i f 0 1 

I 

I 1/30 2/3 

I . . 

I 2/50 3/5 

I 

; « • • 

i 

A = 

9 ■ • • 

f 

• ' 

L - 1 
2L- 1 

and C(t) is a diagonal matrix given by 

¥9^ 
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C(T) 


ai(T) 


a2(T) 


0 


a3(x) 


0 






( 15 ) 


with its element 0 ^(t) given by 


A„(t) 

a (t) 1 . 

^ ZZ+l 


( 16 ) 


The column vectors f (t; x) and s(x; x) of length (L+1) are given by 

fo('>^* x) 
fl(x; x) 
f 2 (x ; x) 


f (x; x) * 


£l.i(t: X) 

fj^Cx; x) 


( 17 ) 


and 
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s(t; x) = 


so(t; x) 
si (t; x) 
S2(t; x) 

# 

Sl_i(t;x) 

S^(T; x) 


(18) 


respectively. 

The elements f^(x; x) of f(t; x) are defined by Eq. (12). Values 
of x) for x = - po and x = iso are given by the following 

equations : 


, . „ -T/U 

s(T;-yo)= Fe ^ 

2(25, + 1) 




and 


(19) 


-I (“Mo) A (T) 

s (t; iso) = — = 

2£+l 


( 20 ) 


The expression for s^^Ct; -yg) is for the cdse of a plane-parallel 
atmosphere illuminated by a monochromatic, unidirectional solar radia- 
tion of net flux ttF per unit area normal to the direction of its prop- 
agation represented by -yg, (j)g. (The quantity F will be taken to be 
unity during computations.) For a pseudo-spherical atmosphere, the term 
exp(- x/yg) appearing on the right hand side of Eq. (19) should be re- 
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placed by the term atten^ (- VIq) • This new term represents the attenu- 
ation suffered by the incoming solar radiation arriving at the j-th 
level where the optical depth is t, and makes an angle Qq with the 
local zenith at that point. It is given by 

atten (-Vo) = \ ( 21 ) 

3 i*l ^ 

where As. represents the magnification of a one km vertical 

i» 3 

path in the i-th layer while reaching the j-th level. It is given 
by 

X |[(a + h^)2yo^ + ” T^jH2a + h^_^ +hj)]^ 

- [(a + h^)^Vio^ + (h^- hj) (2a + h^ + hj)]”^| . (22) 

Initial computations of s (x; iso) are carried out by taking a 

x» 

unit value for the quantity I (-yo^ appearing on the right hand side 

of Eq. (20). Values of s (x ; iso) so obtained would lead to computa- 

tions of l(x = 0;y, iso) (see §3.1) when the procedure discussed in §3.4 

is followed. These values of [l(x = 0; y, iso) + exp(-x^/y)l can be then 

corrected to obtain the second term on the right hand side of Eq. (2) 

for each 9 q, by making use of a value of I (-yo) given by the follow- 

g 

ing equation: ' 

R[Fyo e"^^^^o + 2|fi(T, ; -yo)ll 

i(-yo)= • (23) 

° 1 - 2R| f 1 (x^; iso) I 
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The quantity 2|fi(T^; iso)] is the same as S(X,fi,P) Introduced in 
§2.4, The first and second terms inside the parenthesis in the numera- 
tor on the right hand side of Eq. (23) when multiplied by a factor of 
IT, represent the direct solar flux and the diffuse sky radiation flux 
Incident on the ground, respectively. Again, the factor exp(-T^/yo) 
appearing in Eq. (23) should be replaced by atten^(-Uo) the value 
of the subscript j corresponding to the bottom of the atmosphere. 


Finally, the boundary conditions of incidence of no scattered radi- 
ation from outside the atmosphere is given in terms of the Marshak* s 
boundary condition matrix G [a square matrix of the order (L+l)/2l by 

ttM 

the following two equations: 


f jj(t = 0; x) = - G f (t = 0; x) , 
w^odd i^^even 


(24) 


and 


where 


and 


f j j (t = X, ; x) = G f (t = T, ; x) , 
taodd b ‘-♦-even b’ 


(25) 




|i (x; x) 
|3(x; x) 


fj^(x; x) 


(26) 
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fo(T; x) 
fzC^; x) 


(27) 


[fL_i(T;x)J 

Expressions for computing elements of the G matrix can be found 
elsewhere [e.g., Dave, 1974]. 

In concluding this subsection, we explicitly mention that Eq. (13) 
consists of L+1 inhomogeneous ordinary differential equations. The 
general solution, therefore, requires (L+1) arbitrary constants of in- 
tegration. Equation (24) provides (L + l)/2 conditions for determining 
one-half of these (L+1) arbitrary constants of integration, while Eq. 
(25) provides (L+l)/2 additional conditions for determining the re- 
maining one-half of these (L+1) arbitrary constants of integration. 

3.3 Form for the Direct Numerical Solution ; Equation (13) along with 
the boundary conditions given by Eqs. (24) and (25) can be reduced to 
the following block algebraic system after dividing the atmospheric 
model into several layers of constant optical properties, and integrat- 
ing Eq. (13) between two optical levels t^_j^ and (j = 1 correspond- 
ing to the top of the atmosphere) with the trapezoidal rule of integra- 
tion: 


f (x; x) * 
—even 
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2ll 8l + Pl2 §2 


W 1 > 


P 22 82 + P 23 g3 

f*- m fW ^ 


W2 


‘ yjj-i » 


b „ t , b _ t 
Si = "2 Si St = Gg^ . 

^ i« 4. 


SJ 


(28) 


The bottom-most level of the model is represented by the subscript J. 

The details for arriving at Eq. (28) starting with Eqs. (13), (24), and 

(25), can be found in a report by the author [Dave, 1974]. The D. . , 

»j “J- 

and D, , . matrices [order (L+1)] are functions of the optical char- 

acteristics of the atmospheric models, while the g. and w. vectors are 

•'J 

functions of and x where x = - pq iso. (For the sake of brev- 

ity, explicit referring to these parameters is not done in the following 
discussion.) Various quantities appearing in Eq. (28) are defined as 
follows: 


h ■ 


^even^^ j ’ 


(29) 


w. = At , [s(t. , ; x) + s(t . ; x)] , 
-j-1 2 j-1 j-i j 


(30) 


with 


At , = T . - T . , . 

1 1 3-1 


D. , . 1 = Column 


- A + ^At . C(t . . +|-At . . ) 

2 j-1 j-1 2 j-1 


(31) 

(32) 
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and 


D, , = Column [a + At , C(t . - +4- At , , ) 1 , 

2 j -1 3-1 2 3-1 


(33) 


where a column operator on a matrix denotes the rearrangement of its 
columns by parity. That is, the first half of the columns of the re- 
sulting matrix are the 1st, 3rd, 5th, • * *, Lth columns of the matrix 
inside the parenthesis, and second half the 2nd, 4th, * * *, (L+l)st 
columns. 


Finally, the superscripts b and t on the g, vector in the last 
equation in the system (28) represent the bottom-half and top-half of 
the corresponding vector, respectively. 

In order to obtain a direct numerical solution of the block alge- 
braic system represented by Eq. (28),^ it is necessary to introduce the 
following sequence of rectangular matrices of order (L+1) x (L+l)/2: 


Fi = 


I 

- G 


J2 = Jl » 


l3 = IF2 Ill'l = J2 . 


F- = -rr ,TT^ « ••• TTiFi = fr ,F . 
— J —J— l'^J-2 .V. i A- i «J— 1>"J— 1 


(34) 


where the square matrix of the order (L+1) is given by 
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f 


( 35 ) 


-j 


and I Is a unit matrix. 


It is also necessary to introduce the following sequence of vectors 

a. of (L+1) components: 

*•3 

ai = 0 , 


-1 


“ 5i 2 wi + Ji ai , 


-1 


03 = P 23 "2 + J2 02 » 


0j ■ 


(36) 


Equation (28) can be then rewritten in the following concise form: 


Si » 

*.j '“■j 


j = 1, 2, • • • , J 


(37) 


After applying the lower-boundary conditions, the top and bottom half of 


g^ of Eq. (37) can be related as follows: 


^ j - S Ij' 


t p t b 

gi = G a^ ^ a^ . 


(38) 


Equation (38) now consists of (L + l)/2 unknowns, viz., the components of 

gl at T = 0 (i.e. , T = Ti), and are functions of x(= -Vg or, iso), 
b t 

The matrix - Gf!i is dependent only upon the optical properties of 

•**‘J 

t b 

the atmospheric model. The vector G a^ - a” depends upon properties of 
th•-^ model, as well as on the parameter x(= - yg or, iso). Having de- 
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termined gi, we can compute g by making use of Eq. (37), and hence 

iw •«'3 

the moments x) ; see Eq. (29). 

3.4 Stabilizing Transformations ; Our ability to evaluate the vector 
gj by making use of Eq. (38) depends upon the success of inverting the 


matrix 


- GF^ 


In many problems with (L + 1) of the order of 40 and 
higher and of the order of unity and greater, this inversion cannot 

be carried out successfully due to accumulation of round-off errors. 
Unfortunately, the problem of determining the effect of atmospheric dust 
on the estimated values of the total ozone from the measurements of the 
ultraviolet reflectivity of the earth- atmosphere system, falls into this 
latter category. For such cases, it is necessary to perform stabilizing 
transformations on the sequence F, and a.. It should be remembered 
that the starting sequence Fj, ai • is perfectly we 11- conditioned be- 
cause its top halves are a unit matrix and a null vector, respectively 
[see the first equation in Eqs. (34) and (36)]. For our work, we have 
used the following criterion for selection of levels at which a stabil- 
izing transformation will be performed on their corresponding F^ , a^ 
sequence (the levels so selected are called conditioning points): 

Maximum optical distance between two conditioning points = y = . 


For T ^ 4.0, and (L+ 1) ^ 60, N_ = - — + 4 . 
b ti y 


For T, > 4.0, and (L+ 1) > 60 but ^ 80, N_ = — + 14 . 
b C y 

For T, > 4.0, and (L+1) > 80, = — + 30. 

b ' ' C y 


31 


Thus, for * 5.0, and (L+1) = 100, this criterion will select 80 of 

the sublevels as conditioning points. Even for the case of t, < 0.1 

D 

and (L+1) ^ 10, this criterion will ask for 4 conditioning points. 

From Dave and Canosa [1974], we see that this latter case requires only 
two conditioning points, one at j =l, and the other at j=J. That is, 
Eq. (38) can be solved directly. Thus, the criterion vsed for deter- 
mining the number of conditioning points here is somewhat stricter than 
the one used by us in our earlier work. This is for reducing the 
chances for a premature termination of the program. 


The following discussion on the technique of the stabilizing trans- 
formation used is strictly a descriptive one, and is given primarily for 
understanding the mechanics of computations in the FORTRAN program 
SITBB: The reader interested in its mathematical aspects should refer 

to one of the several earlier publications on this subject [e.g., Can- 
osa and Penafiel, 1973; Dave, 1974]. 


Let us serialize the levels selected as conditioning points as 
Ci» C 2 , * * *, C^. Cl is the level corresponding to the top of the 
atmosphere (j = l), and C^ is the level corresponding to the bottom of 
the atmosphere (j=J). At Ci, the sequence Fi, ai is very well- 
conditioned by definition. Starting with this Fi, a\ sequence, we 
generate the sequences F 2 » |:2 > > ^3 j * ' ’ > ^ j > > until we arrive 

at the sequence for the level corresponding to the conditioning point 


C 2 . Let us call this sequence old Fq , old an . We then compute the 
following transformation matrix Tq^ whi-ch is of the order (L+l)/2x 
(L+l)/2: 
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-1 


(39) 


Tn =» old 7r 


The transformation of the old is then given by old which 

will be referred to as matrix, or as a new Fq^ matrix. The top 

half of this new Fp matrix is a unit matrix while its bottom half is 
given by 


new Jcj 



“W Ic^ 



(40) 


The vector old an is also to be transformed so that new an is 

linearly independent of the columns of new F^^. This is achieved as 

follows: 

(a) Store the top half of the old a^^ as tQ^ for a future use, 
i.e., 

tn = old an^ (41) 

(b) Compute another vector uq^ such that its top half is a null 
vector, and its bottom half is given by 

HC2 “ 2C2 " (^2) 

(c) This up^ vector is our new a^^ vector. 

Summarizing, after performing stabilizing transformations on the 
old sequence ^C 2 ’ second conditioning point, we have ar- 
rived at a new sequence Fq^ > SiC 2 that this new sequence is very 

well- conditioned like the first sequence Fq^, During this process. 
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we have also generated Uq ’2 ^nd matrices which are of the order 

(L+l)/2x (L+l)/2, and U(|^ and t^^ vectors which are of the length 
(L+l)/2. These two matrices are dependent upon the optical properties 
of the part of the atmospheric model contained between the first two 
conditioning points, while the vectors, in addition, are also dependent 
upon the parameter x(= -pg, or iso). 


A repetition of the procedure outlined above between the condition- 
ing points C 2 and C 3 will result in generation of Tq^, u^?, and 

tp vectors. Eventually, after marching through, all atmospheric levels, 
we will have Nq number of these vectors and matrices. 


The sequence uq^ is then used to compute a vector by 

solving the following system of linear equations: 


Up - G 


In — — Up . 


(43) 


Since this Hr vector corresponds g^ [see Ganosa and Penafiel, 1973], 

—'•I 


we have evaluated the entire vector g_ or the moments f(T.r» after 

*• j »<« j 


making use of the lower boundary conditions. 


Having obtained ir corresponding to the last conditioning point 
or the lowest level in the model, values of for the other condi- 

tioning points can be obtained by making use of the following equation: 


iCv-l • 


Again, these provide the top-half of g^ 

where the conditioning points are located. 


vectors at levels 
The bottom half of 


( 44 ) 
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these vectors are then obtained as follows: 

SCk “ ^Ck iCk + ^Ck * 

Having obtained values of g. vectors at all levels at which stabiliz- 
ing transformations were performed, values of g. at levels in between 
the two successive conditioning points can be obtained by making use of 
the following equation: 

h " - j-1 °j-i, j -j-1 ■ 

3.5 Computations of the Intensity ; Having computed the Legendre mo- 
ments of the azimuth- independent component of intensity [Eq. (12)] for 
all given directions of illumination of the atmospheric model from the 
outside, values of the quantity I(t = 0; y, x) can be computed with the 
following equation: 

I(T=0;y,x) = I f (t = 0) P (y) . (47) 

If this expression can provide accurate and smooth I vs. y curves, we 
do not need computations of g. at all levels. It would be sufficient 
to have values of gj only. Thus, the steps represented by Eqs. (45) 
and (46) would be unnecessary. 

However, values of l(x = 0;y, x) so obtained are for the first 
L+1 terms of the Legendre series representing the scattering phase 
function of a unit volume. As mentioned in the third paragraph of §2.4, 
the Legendre series for some aerosol distributions may require as many 
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as 200 (or even 300 In some extreme case) terms, while the order of spher- 
ical harmonics approximation used varies between 40 and 100 depending upon 
the anisotropy of the phase function (§4.4). Even if the order of the 
spherical harmonics approximation was t «2 increased to account for all 
the terms in the input phase function, tiic ;; arve I<t = 0; p, x) vs. p 
would still exhibit an oscillatory character [e.g., Dave and Canosa, 

1974]. Dave and Armstrong [1974] have applied two different methods 
for smoothing the I(t; p, x) vs. p curves obtained with a given order 
of the spherical harmonics approximation. One of the methods is the 
Cesaro summation method which provides smooth curves but the actual ac- 
curacy of the computed intensities is of somewhat poor quality. The 
other method, known as the integration-of-the-source-function method, 
provides results more accurate compared to those obtained with the 
Cesaro summation method. 

For our work, we will adopt a modified version of this integration- 
of- the- source- function method [Dave, 1975]. Accordingly, the source 
function J(t^;P, -Po) due to virtual emission at the center of the 
Tj-th layer, and in the direction p, is given by 

J(T^;p, -Po) =-|-F 0-5[e‘'"i/^0 + 

LMX . L 

^ I a^(t^)p^(p)p^(-po) + j I 

X o.5[fj^(Tj ; - Po) + - po)] P^(iJ) , (48) 


36 



and the source function due to the illumination condition x = iso is 
given by 


LMX 


I 

J(Tj; M, iso) » Y I A^(x^)Pj^(y) 


X 0.5 




e-<^b-’'j+l)/bl p (m) dPi 



Aj(t ) 0.5 




iso) -r iso) 


^ Pj^ ( y) . 


(49) 


The first term on the right hand side of Eqs, (48) and (49) represents 
a contribution due to the scattering of the direct solar radiation, and 
isotropic ground-reflected radiation, respectively. In other words, it 
represents the contribution due to the first (primary) scattering of 
the incoming direct radiation. This primary scattering contribution is 
computed after taking into account all terms of the Legendre series as 
the upper limit LMX assumes a value of 2 for a pure Rayleigh model, 
and is equal to greater of NMXST-1 and NMXTP-1 when the model contains 
stratospheric as well as tropospheric aerosols. 

The second term on the right hand side of Eqs. (48) and (49) repre- 
sents the contribution due to rescattering of the atmospheric radiation. 
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This higher-order contribution to the source function is computed using 
the Pj^~th approximation. 

Values of I(t =0; u, x) are then obtained by making use of the 
following series: 

I(t » 0; p, x) = I exp (- t . /y )~ J (x , y , x) Ax , (50) 

M J J J 

where the bar implies the mean value of the terms under it. 

IV. COMPUTATIONAL PROCEDURES 

4.1 General : In §2, we mentioned that two computer programs (viz., 

SITAA and SITBB) are required for computing the azimuth-independent 
component of the intensity of the scattered radiation emerging from a 
nonhomogeneous, pseudo-spherical atmpsphere. Computer requirements and 
the basic information for a successful running of these programs on an 
IBM 370 series computer were also given in that section. Some detailed 
information about the method of computations was given in §3. In the 
present section, we will give details about the programs themselves 
which are written in the FORTRAN IV language, This particular sub- 
section is restricted to some features common to both programs, and to 
giving a general idea about the contents of the remaining three sub- 
sections of this §4. 

The input datasets in both programs are read in by the statement 
READ (IR, •••••, where the parameter IR is assigned a value of 
unity in the beginning of the program (SITAA 25 and SITBB 148). The 
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dataset intended as an input to a given program should therefore be 
made available on the disk assigned to the virtual machine with a file 
name of FILE, and a file type of FTOlFOOl before the program execution 
is called for. 

The output intended in the printed form is written out by issuing 
a statement WRITE (IW, * * • ‘ where the parameter IW is assigned a 

value of 8 in the beginning (SITAA 26 and SITBB 149). In order to 
transfer this printer output to the printer disk-space of the host com- 
puter, it is necessary to issue the following file definition statement: 

FI FT08F001 PRINTER (PERM RECFM UA BLKSIZE 132. 

If not, the output will be stored on the disk attached to the virtual 
machine. 

t 

Subroutines from the FORTRAN library are accessed by issuing the 
statement GLOBAL TXTLIB FORTLIB before starting the execution of the 
program. 

A subroutine TIMDAT is used to obtain information about the vir- 
tual and real CPU (Central Processing Unit) time, in seconds, required 
for a given production run. This subroutine has four arguments, viz., 
DATE, HOUR, ITV, and ITR. The arguments DATE and HOUR are in eight 
byte length (Real * 8) . Readings of the virtual and real clocks in 
milliseconds are stored in the 4-byte integer locations ITV and ITR, 
respectively. The subroutine TIMDAT is called just before starting the 
main bulk of computations, and also just after all computations are 
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completed for a given subset of the job. The differences between these 
two clock-readings are converted in seconds, and this timing informa- 
tion along with other identifying information of interest, is typed out 
at thr> terminal by issuing the statement WRITE (6, * • • • . This timing 
part of the program can be deleted without affecting the results of 
computations in any manner (statements numbered SITAA 22, 23, 40, 128 
to 131, and SITBB 129, 130, 188, as well as 654 to 657). 

Except for the subroutine TIMDAT discussed in the preceding para- 
graph, the program SITAA does not call for any subroutine unavailable 
in the standard FORTRAN library. On the other hand, the program SITBB 
does call for a number of such subroutines. Eight of these subroutines 
(viz., BCMAT, FLUX, LEGFUN, PITRIX, POLATE, SLPTH, SOLISY, and SOLVE) 
'are discussed in §4.3. Remaining subroutines (viz., SUBSTA, SUBSTB, 

• • • , SUBSTM) consist of a group of statements pulled out of the orig- 
inal version of the SITBB program primarily for the purpose of decreas- 
ing the CPU time required for several test runs. The functions per- 
formed by this latter type of subroutines are discussed at appropriate 
places in §4.4. Reader may come across two different SUBSTx routines 
performing essentially the same task. 

4.2 Program SITAA ; The statements numbered SITAA 1 through SITAA 23 
contain comment cards, dimension statements for the various variables 
appearing in the main body of the program, and the format statements 
for handling input and output. The statement no. SITAA 24 defines the 
format for the direct access output file number 15; it will consist of 
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101 records of 2004 bytes each. The third parameter inside the paren- 
thesis, viz., the letter L, specifies that the preceding number is in 
bytes. The last parameter is a dummy parameter of little interest to 
us. This DEFINE FILE statement must be compatible with the file defin- 
ition statement given in §2.1. 

Values of the variables TAU, SUM, and BUM (see Table I) are ini- 
tialized during execution of the statements SITAA 28 through SITAA 32, 
and the constants appearing in recursive computations of start- 

ing with values of Po(y) ^nd Pi(u) are evaluated during execution of 
the statements numbered SITAA 33 through SITAA 38. 


Table I. Some important variables appearing in the SITAA 
program and their mathematical equivalents. 


Variable 

Mathematical Equivalent 

AMU 

y 

BUM 

single precision representation of the integral appear- 
ing in §2.2. 

COKA to COKC 

numerical constants in recursive computations of 

DMU 

Ay 

FNEX 

exp(-t/y) 

FNPL 

P,(M) 

SUM 

double precision representation of the integral appear- 
ing in §2. 2. 

TAU 


ZPL 

zeroes of P^Cy) for a given value of the subscript £. 

X/ 
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Positions of the zeroes of for the value of the subscript I 

under investigation are read in (SITAA 43 through SITAA 52) only if the 
value of the subscript H exceeds unity. A check is also made to see 
that the cards containing values of the zeroes of PqCp) are in proper 

Xf 

order (SITAA 47). 


Statements SITAA 53 through SITAA 71 are used to divide the interval 
between two con'secutive positions of the zeroes of P (p) in an even 

Xj 

number of subintervals of equal length. This is because contribution to 
the integral from the interval contained between two consecutive posi- 
tions of the zeroes of is to be evaluated at a later stage by 

using Simpson's rule of integration. Care is taken to see that each in- 
terval is subdivided as finely as possible provided the total number of 
subintervals in the entire range (0.0- 1.0) does not exceed 500. During 
the execution of these statements, the following quantities are also 
evaluated; at which the integrand exp(- t/p^) P^(p^) will be evalu- 
ated, the subinterval Ap^ = quantity RAMU(I) repre- 

senting exp (- 0. 01/p^) . 


Values of P (p.) for all values of p. are computed during execu- 

36 X X 

tlon of the statements numbered SITAA 72 through SITAA 93 by making use 


of the well-known, upward recursion formula. The function 
for values of given by x^ = 0.00 (0.01) 5.00 and j = 


exp(- T./p .) 
J X 

1 (1) 501 is 


computed in the part of the program contained between SITAA 94 and SITAA 


104. This exponential function is set to zero if its value is found to 
be smaller than 1.0x10"®*^ for a given x^, p^ combination; this is 
done for avoiding any undesirable underflow messages at a later stage. 


42 



Statements SITAA 105 through SITAA 125 are used to evaluate the 
contribution to the exponential integral in each of the intervals using 
Simpson’s rule, and then for evaluation of the integral over the entire 
range. ' All these computations are carried out using double precision 
arithmetic procedures. However, only values of the exponential integral 
rounded to about first seven significant figures (SITAA 124), are stored 
for all 501 values of the parameter t and a given value of the sub- 
script a as a record number 5, + 1 on the dataset 15 (SITAA 127). 

The program is then returned to the statement no. SITAA 39 for per- 
forming computations for the next higher value of the subscript 1. If 
an end of file is encountered during the reading of zeroes of P^(y), 
the control is transferred from SITAA 45 to SITAA 134. The remaining 
part of the program is then used to generate a printed output of values 
of the exponential integral for 501 equally spaced values of the param- 
eter T and for all successive integer values of the subscript £, 
starting with zero. 

4.3 Subroutines called by SITES ; As mentioned in the last paragraph of 
§4.1, we will describe the following subroutines in this section: BCMAT, 
FLUX, LEGFUH, PITRIX, POLATE, SLPTH, SOLISY, and SOLVE. 

Subroutine BCMAT ; This subroutine is called by the statement no. 
SITBB 182 of the main program for returning computed values of the vec- 

' ^ i - 

1 . 

tors AL^ AR, and the matrix GMAT. The vectors AL and AR represent the 
arrays on the left and right hand side of the main diagonal of the ma- 
trix on the right hand side of Eq. (14), respectively. The matrix GMAT 
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represents elements of the boundary condition matrix G first appearing 
at the Eq. (24). Explicit expressions for computations of all elements 
of this G matrix can be found in §3.5 of a report by Dave [1974]. The 
calling program is written to accommodate up to Pgg-th approximation of 
the Spherical Harmonics Approximation, and hence the orders of A and G 
matrices are 100 and 50, respectively. This subroutine is written to 
return values for these largest, called-for conditions. This subroutine 
is too small and too simple to require any further explanation. 

Subroutine FLUX ; This subroutine is called by the statement no. 

SITES 570 and SITBB 587 for returning values of the direct solar flux 
[F^(t; x)], and upward as well as downward diffuse fluxes x) and 

F,(t; x)] at the level t for all eleven cases of illumination of the 

d 

atmospheric mo‘del under investigation. Mathematical equivalences of key 
variables appearing in this subroutine are given in Table II. The vari- 
able ISW carries information about the success or failure in computa- 
tions of the g vector [see Eq. (29)] corresponding to the lowermost level 
in the atmospheric model by making use of the Eq. (43). In the case of 
failure for a given case of illumination, F^ and F^ are set to zero. 

Computations of F^(x;x) and F^(x;x) (with x = - yg 
carried out by making use of Eqs. (47) and (48), respectively, given in 
a report by Dave [1974]. For these computations, we require values of 
the moments f^(x; x) defined by Eq. (12). It should be pointed out 
that locations VECLl contain values of the g vector at the level x 
(symbol L in this subroutine) for all eleven cases of illumination. 
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Table II. Some important variables appearing in the subroutine 
FLUX and their mathematical equivalent. 


Variable 

Mathematical Equivalent 

AMUO 

Vo 

ATEN 

-exp(-T/po); see Eqs, (19-22) 

FXD 

J^^('^*» “Vo) orF^<T;iso) 

FXN 

Net flux, F^(t; -)Jo) F^('rjiso) 

FXS 

F (t,“Po) or F (t;1so) 

s g 

FXU 

F^(t; -Mo) or F^(t; Iso) 

L 

level number 

NTR 

Order of the Sp. H. Approx. + 1 

VECLl 

g vector at the level t 


and furthermore, the g vector is essentially an f vector rearranged 
as shovm by Eq. (29). Hence, location VECL1(1,N) contains value of the 
moment fo(T) for the N-th case of illumination, while the location 
VECLl (NTR/2 + 1 , N) contains the value of the moment fi (T) for the N-th 
case of illumination. The remaining even moments, i.e., f 2 ('i^; x) , 
fi^Cr; x), " •- •, fj^ j^(t; x), required for computations of the diffuse 
fluxes are found in the location VECLl (2, N), VECL1(3,N), * * *, VECLl 
(NTR/2, N), respectively. With this explanation, one should have no dif- 
ficulty in following statements no, FLUX 18 through FLUX 27. 

The algebraic summations of f „ (t) carx'ied out during the execution 
statements FLUX 18 through FLUX 27 provide values of -F^(t; x)/2tt and 
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F^(t; x)/2it. Therefore, these sums are multiplied by appropriate factors 

to obtain values of Fj(r;x) and F (x;x); statements no. FLUX 28 and 

a u 

FLUX 29. 

Computations of F^(T;-yo) given by the expression it yg exp (- t/pq) 

are carried out during execution of the statements FLUX 31 through FLUX 

33. Values of F (x; iso) for the case of isotropic illumination from 
g 

below are provided by the calling program in locations FXS(L, 11). 

Values of the net flux ^ “ “1*0 end x = iso are then 

computed by the statements FLUX 35 and FLUX 37, respectively, by making 
use of the following equations : 

F (x; - yg) = F (x; -yg) + F (x; -yg) - F (x; - yg) , (51) 

XI S Cl u 

and 

F (x; iso) = F (x; iso) + F (x; iso) - F (x; iso) . (52) 

n g n a 

Subroutine LEGFUN ; This subroutine is called by the statement no. 
SITES 181 for returning values 9g, yg, P^(-yg), 9, y, and F£(y)* 

These six quantities are represented by the symbols THETO, AMUO, FNYN, 
THETA, AMU, and FNYP, respectively. Ten input values of 9 g are ini- 
tialized by the statement no. LEGFN 10 and LEGFN 11. Numerical constants 
needed in recursive evaluation of the Legendre polynomials F^(y) start- 
ing with the values of Pg(y) and Pi(y), are computed during the execu- 
tion of statements LEGFN 14 through LEGFN 21. Values of yg, and of 
p (_ |jq) for £ = 0 (1) 299, are computed in the part of the program con- 
tained between the statements LEGFN 22 through LEGFN 37. 
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Equation (1) is used to compute values of values of 9 and y for 
the IB different directions of observation for the NIMBUS-G configura- 
tion (LEGFN 40 through LEGFN 46). Remaining part of the subroutine 
deals with recursive evaluation of all 18 values of y, and 

300 values of the subscript 1. 


Subroutine PITRIX ; This subroutine is called by the statement no. 

SITBB 482 for obtaining values of all elements of the tt , and 

•"3 ’^ 3 . 3+1 

matrices given by Eqs. (35) and (33), respectively. The fourth and sixth 

arguments, viz., PIMAT and DINV, specify respective matrix locations at 

which values of it. and for the j-th layer will be returned. 

‘'3 "*'3»3+l 

The first and third arguments of this subroutine (viz., AL and AR) spec- 
ify the nonvanishing elements of the bidiagonal matrix A (see subroutine 
BCMAT) . Values of the diagonal elements of the matrix C(t^ +-^At^) 

appearing in Eqs. (32) and (33) [also see Eqs. (15) and (16)] are given 
by the second argument of this subroutine. The last argument, viz., NMX 
specifies the order of the input and output matrices. The remaining 
arguments provide the temporary work area. 

From Eqs. (32), (33), and (35), we find that the computations of the 

IT. matrix require values of DT^.,i and D. . matrices which, in turn, 

“-J ''3»3+l '-3 0 

are tridiagonal matrices with their columns rearranged by parity. From 
the §5.4 of a report by Dave [1974], we find the following: 

, (53) 


DT^ . .1 = Row 


A + At , C(t . At . ) , 

2 3 - 3 2 3"j 


and 
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where a Row operator on a matrix denotes the rearrangement of its rows 
by parity. This Row operator is similar to the Column operator which is 
described in the paragraph following Eq. (33) except that this new oper- 
ator operates on rows, and not on columns of the matrix. 

From the preceding discussion, it is clear that the task of comput- 
ing elements of tt, and matrices reduces to that of inverting 

"“i '~3 »3 '■i 

the tridiagonal matrix inside the rectangular bracket in Eq. (53) or (54) . 
Inversion of a matrix (general or tridiagonal) can be best carried out 
after obtaining its L»U decomposition, i.e., after breaking it up in- 
to a lower triangular matrix L, and an upper triangular matrix U. 

Using Gaussian elimination procedure, one can easily obtain an L • U 
decomposition of a tridiagonal matrix provided no pivoting is required 
[Ch. XIII in Forsythe and Moler, 1967]. However, we find that an L»U 
decomposition of the above-mentioned tridiagonal matrix does require 
some partial pivoting. The procedure described in Chapters IX and XI of 
the book on "Computer Solution of Linear Algebraic Systems" by Forsythe 
and Moler cited above, for L* U decomposition of a general square ma- 
trix was appropriately modified to take advantage of the tridiagonality 
of the matrix at hand. This decomposition is carried out by the part of 
this subroutine contained between the statements PITRX 30 and PITRX 110. 
This part of the subroutine can be followed by referring to the book of 
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Forsythe and Moler, and partially pivoting a small (8 x 8) matrix manu- 
ally. On analysis of this part of the subroutine, a reader would find 
that some extra precautions are taken to err on the safe side. Natural- 
ly, this does result in a small increase in the computational load. 

The L • U decomposition is stored at the matrix location TEM. 

Statements PITRX 111 through PITRX 158 are then used to obtain an 
explicit inverse of the tridiagonal matrix at hand by making use of its 
recent ly-arrived-at L • U decomposition as follows: 

Consider linear systems of equations given by Ax. = b, with 
i® 1, 2, • • NMX. The vectors are so defined that all 

elements of the b^”th vector have a zero value except for its 
k-th element which has a vaule of unity. Since L • U decompo- 
sition of A is available, we can evaluate x, vector in two 
steos. [Note that A of this paragraph is not the A of Eq. (14).] 

(i) Forward substitution: U x , = L~^b, PITRX 124 through 

- '■i -- -1 

PITRX 141, and 

(ii) Backward substitution: x^ = » PITRX 145 

through PITRX 157. 

The solution vector x^ so obtained represents the i-th column 
of A“^ matrix as AA'^ ® I. 

A reader desiring further information on this subject is referred 

to Forsythe and Holer’s book mentioned above. It may be noted that an 

inverse of [A + ~ At, G(t, +~-At.)] is stored at the matrix location 
-2 3-323 
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PIMAT at the conclusion of the statement no. PITRX 158. 


Statements PITRX 165 through PITRX 178 are then used to perform a 
" "1 

Row operation on A + -;7 At, C(T,+-;rAT,) to obtain ; see Eq. 

( 53 ). 


Finally, statements PITRX 182 through 193 are used to obtain the 
matrix appearing Inside the outer large parenthesis in Eq. (54) ; and 
statements PITRX 197 -PITRX 209 and PITRX 210 -PITRX 222 are used to 
perform a column and a row transfer, respectively, for obtaining 
matrix in the matrix location TEM. The last part of this subroutine is 
used to transfer the it^ matrix from the matrix location TEM to the 
matrix location PIMAT. 

Subroutine POLATE : This subroutine is called by the statements 

SITES 445 and SITBB 452 of the main program for returning linearly in- 
terpolated value of a function YTAB at a value X when the function 
YTAB is tabulated at an interval of 0.01 in the parameter x starting 
with 0.0. The interpolated value is returned at the location of the 
third argument of this subroutine, viz., Y. 

Subroutine SLPTH ; This subroutine is called by the statement no. 

SITBB 183 for returning values of the quantity As . . [Eq. (22)] for all 

J 

10 values of Sq, and for all 32 basic layers. The heights of bases of 
each of the 32 basic layers, and of the top of the atmosphere, are de- 
fined by the statements SLPTH 8 through SLPT 10. It should be noted 
that no attempt is made to compare these values with input values of 
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GTH (SITBB 157), or with the value of the radius of the earth in the 
subroutine LEGFUN. For another planet or for any other division of the 
atmosphere, proper care must be exercised. 

Signs of the quantity Pq are changed (SLPTH 21) as values of Pq 
generated by the subroutine LEGFUN carry a negative sign before them. 
Again, this subroutine is too simple to require any detailed explana- 
tion. 

Subroutine SOLISY ; This subroutine is called by the statements 
SITBB 501 and SITBB 536 of the main program. It has 11 arguments. The 
first argument (viz., NCASE) can have a value of 1, or 2 only. For 
NCASE = 1, this subroutine returns an inverse of a general square matrix 
A (second argument) in the matrix location designated AINV (third argu- 
ment). For NCASE = 2, a linear system of equations Ax = b is solved 
[b vector in the vector location designated B (sixth argument) , and 
x vector in the vector location designated X (fifth argument)]. The 
order of the A matrix is given by the eighth argument, viz., NMX. 

The remaining arguments supply a temporary work area to the sub- 
routine except the ninth argument, ITR. Information transmitted to the 
calling program by this ninth argument, will be described at a later 
stage. 

For NCASE = 1 or 2, the first step is to obtain an L*U decom- 
position of the matrix A in the matrix location designated TEM (SOLIS 
35 through SOLIS 82). The Gaussian elimination procedure with partial 
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pivoting (see discussion under subroutine PITRIX in the preceding para' 
graphs) is used for this purpose. 


The next step is to solve the linear system of equations Ax = b 
(NCASE = 2), or systems of linear equations Ax. = b. , i = 1, 2, • • •, 

'~X ^ '1 

NMX for obtaining the matrix A" ^ (NCASE = 1 ) . Again, reference is made 
to the discussion under the heading Subroutine PITRIX. 

It should be pointed out that the matrix inverted in the subroutine 
PITRIX is a tridiagonal one. Hence, it is well-conditioned, and its in- 
verse is assured against the propagation of round-off errors. On the 
other hand, the matrix to be inverted under this subroutine (SOLISY) is 
a general square matrix which may or may not be well-conditioned. Be- 
cause of this, it is not sufficient for this subroutine to return num- 
bers which may or may not truly represent the exact Inverse of A. 

This subroutine should also measure the condition of the matrix during 
computations and provide an appropriate message when the reliability of 
the results is in doubt. The procedure used for measuring the condi- 
tion of the A matrix is described in Ch. XIII of the book by Forsythe 
and Moler [1967]. In brief, this procedure is as follows: 


(i) Obtain a first solution of the linear system of equations 

Ax = b by following the procedure outlined under the heading 
Subroutine PITRIX. Call this first solution vector This 

solution is obtained by calling the subroutine SOLVE at the 
stage SOLIS 94. It should be again pointed out that for NCASE = 
2, the system Ax = b is solved for only one value of the b 
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vector while for NCASE = 1, it is solved for a set of vectors 
b. with i = 1, 2, • • *, NMX where the b, -th vector has 
all its elements set to zero except its k-th element which 
has a value of unity (SOLIS 83 through SOLIS 93) . 


(ii) Terminate the program with an appropriate message if x^^^ is 
a null vector (SOLIS 106 through SOLIS 113). 

(iii) Form the residual vector (SOLIS 115 through 

SOLIS 122). 


(iv) Solve the linear system AAx^^^ =® by calling the sub- 

routine SOLVE (SOLIS 123). 

(v) Compute x^^^+Ax^^^ and compare it with x^^^ vector. If 

the largest absolute values of these two vectors agree within 
3 significant figures, attempt to improve on x^^^ by going 

fV*- 

through the steps which follow. Otherwise, return to the 
calling program with a negative value for the argument 
ITR (SOLIS 129 through SOLIS 133, and SOLIS 137 as well as 
SOLIS 138). 

(vi) Accept the solution largest elements in 

and xf^^ + ^x^^^ agree within six significant figures (SOLIS 
134). If not, go to the next. step. 

(vii) Repeat steps (iii) to (vi) above by treating x^^^ + Ax^^^ as 

( 2 ) ( 2 ) ( 2 ) 

X .and then obtaining r and Ax . 
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The iterative procedure outlined in step (vii) above is set to be 
repeated for 15 times (SOLIS 103) at the most. If after 15 iterations, 
the solution vector cannot be Improved within the preset criteria, a 
return is made to the calling program with ITR = 0 (SOLIS 135, SOLIS 
136, SOLIS 139, and SOLIS 140), The six-significant-figure convergence 
criterion is based on the single precision accuracy of the 370 series 
computers. : ; 

If the linear system of equations Ax = b can be solved success- 
fully (or if the matrix A can be inverted successfully for NCASE=1), 
an Integer value between 1 and 15 is returned to the calling program 
via the argument ITR. 

Subroutine SOLVE ; This subroutine is called by statements SOLIS 
94 and SOLIS 123 of the subroutine SOLISY. It receives L*U decompo- 
sition of a general square matrix A at the location designated TEM 
(first argument)* and a vector b at the location designated B (third 
argument). The solution vector x (location designated X; second 
argument) is obtained by going through the forward substitution proce- 
dure (y X - 1""^^), and then the backward substitution procedure 
[x = y-i(L;^ b)], 

4.4 Program SITBB ; This is the main program used for computing the 
azimuth- independent component of the intensity of scattered radiation 
emerging at the top of a pseudo-spherical model of a terrestrial atmo- 
sphere. It consists of a total of 660 FORTRAN statements. Input to, 
and output from this program are discussed in §2.3 and 2.4, respective- 
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ly. Mathematical equivalence as appearing in the text (§3) and/or def- 
inition of various important variables appearing in this program are 
given in Table III. 

After comment, dimension and format statements (SITBB 1 through 
140) we arrive at the block SITBB 141 - SITBB 147 which deals with the 
FORTRAN equivalence of the file definition statements listed in §2.1. 

The datafiles no. 11 and 12 are for storing the Ur and Tr matrices 
(§3.4) generated at each of the conditioning points. A provision is . 
made to deal with a maximum of 101 conditioning points for a given run 
(SITBB 385 - SITBB 388) and hence, each of these files has a capability 
of accommodating 101 records. The size of each of these records is 
10,000 bytes based on (50, 50) REAL * 4 dimension of these matrices (SITBB 
22). Datafiles no. 13 and 14 similarly accommodate vectors t^^ and 
Ur for eleven directions of illumination. Their dimensions are (50, 
11 ) each and hence a record length of 2,200 bytes. 

The contents of datafile no. 15 are described in §2.2 and 4.2. 

Datafile, no. 16 is to store output of I(X, SI, P, R= 0, 6 , 69 ) , 

T(X, fii, P, Gq), and S(X, S2, P) for all six wavelengths of interest to 
the NIMBUS-G configuration, and for up to 200 different atmospheric 
models [Eq. (2) and discussion following it] . It therefore consists of 
200 records. Each record consists of the single precision (REAL * 4) 
quantities TITB(14), EIC (18, 10, 6 ) , TIC (18, 10, 6 ) , and SSBBRR( 6 ); see 
SITBB 32, SITBB 33, and SITBB 647. Hence, the record length in bytes 
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Table III. Important variables appearing in the program SITBB 
and their mathematical equivalence or definition. 


Variable 

Equivalence or Def init s.ia 

A 

Temporary work area. 

AJVD 

Exponential integral for the subscript §2.2, 

AL 

Vector on the left of the main diagonal in the matrix A 


Eq. (14). 

ALDA 

X 

AMOMT 

f^(t;x) for a given t; Eq. (12). 

AMU 

y; §3,1. 

AMUO 

yo; §3.1. 

AR 

Vector on the right of the main diagonal in the matrix A 


Eq. (14). 

ATEN 

-exp(-T/yo) or its equivalence in a spherical atmo- 


sphere; see discussion following Eq. (20) . 

AVECT 

a ; Eq. (36). 

■"j 

B 

Temporary work area. 

BABSST 

^(a, ST), 

BABSTP 

-(a, TP); 

BLDA 

X 

BMOMT 

f^(x; x) for a given t; Eq. (12). 

BREKA - BREKD 

Equivalence for the core storage area of it. and DT^. 


matrices. ^ ^ 

BSCAST 

Eq. (7). 

BSCATP 

3^®’ Eq. (7). 


56 




Table III, continued 


Variable 


BTEN 

C 

CAPLAM 

CAPLX 

CAPLY 

CINV 

CIMAT 

COFAR 

COFAS 

COFAT 

D 

DATE 

DELS 

DINV 

DISTAN 

DTAU 

DTAUH 

EIG 


p 


EIN 


Equivalence or Definition 

exp (- T /p ) , 

Temporary work area. 

Eq. (11). 

0. 5 a^(T) Eq. (16) . 

w,; Eq. (30). 

F^; Eqs. (34) and (38). 

Inverse of F^. 

Eq. (11). 

Eq. (11). 

Eq. (11). 

Temporary work area. 

Date of the computer run. 

As. (-Po); Eq. (22). 

J 

^ ; also used for a temporary storage, SITBB 523. 
» 3 

y; 13.4. 

At . . 

3 

0. 5 At , . 

2 

1(0; p) for 18 values of p, 10 values of Qq, and 
6 values of A. 

1(0; p) for 18 values of p, 10 values of Sq, and 
also for isotropic illumination from below; §3.5 


FMAT 

FNYN 

FNYP 


F^; Eq. (34). 
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Table III, continued 


Variable 

Equivalence or definition 

FXD 

f 

I F,(t; x); §4.3, FLUX. 

u 

FXN 

F (t;x); Eqs. (51) and (52). 
n 

FXS 

F (T;-yo) or F (T;iso). 
1 ° 6 

FXU 

F^(t;x); §4.3, FLUX. 

GMAT 

G; Eq. (24). 

1 

GTH 

Geometric thickness of a basic layer. 

HOUR 

1 

Hour of the day read by the computer clock. 

ICHCK 

ICHCKj = 11 means that the j~th sublayer is the top- 
most sublayer of a given basic layer; ICHCK. = 0 means 

that it is not so. ^ 

ICPOS 

Sublevel number of the conditioning point. 

ILDA 

Serial number of the wavelength; §2.3. 

INEW 

. Sublevel number of a given conditioning point. 

IP 

Array used for carrying information on partial pivoting 

of a matrix. 

IPITE 

Basic layer number of a given sublayer. 

IR 

Read tape unit. 

ISW 

ISWj^ = 0 implies a success in solving the system of 
linear equation for the n-th direction of illumination. 

ITR 

§4.3, SOLISY. 

ITRB 

Real CPU time in milliseconds at the beginning. 

ITRE 

Real CPU time in milliseconds at the end. 

ITVB 

Virtual CPU time in milliseconds at the beginning. 

ITVE 

Virtual CPU time in milliseconds at the end. 

IW 

Write tape unit. 
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III, continued 


Variable 

Equivalence or Definition 

UMU 

Work area for PITRIX. 

TXNLVL 

Total number of sublevels. 

ifXNLYR 

Total number of sublayers. 

MBAS 

Basic layer number. 

- NBAS 4 

Record numbers for storing iTj and D7^ , , , on the unit 

no. 17 . 

MBYLR 

1 

Total number of basic layers; §2.3. 

J^MOD 

Model number ; §2.3. 
1 ' 

iJMXST 

(ST) 

[ Upper limit of . 

aj 

JtfffiTP 

(TP) 

Upper limit of 

NTR 

Order of the spherical harmonics approximation plus one. 

NTRA 

NTR+1. 

NTR2 

NTR/ 2. 

MTR21 

NTR2 + 1 . 

IIUMCON 

Total number of conditioning points. 

/(UMCOl 

NUMCON- 1. 

OMEGR 

’ Eq. (8) . 

OKEGST 

O)g^(T); Eq. (8). 

OMEGTP 

w^p(T); Eq. (8). 

OZABS 

a; Eq. (6). 

OZOTH 

Ozone amount in a basic layer. 

PRTH 

Pressure thickness of a basic layer. 

PIMAT 

IT . ; Eq. (35) . 
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Table III, concluded 


Variable 

Equivalence or Definition 

SBAR 

S(X, n, P); Eq. (2). 

SSB6RR 

SBAR for all 6 wavelengths for a given model. 

STDUST 

Stratospheric dust content of a basic layer. 

TAU 

t; Eq. (3). 

TAUBSR , 

1 

Eq. (4) or (5). 

TAUTOT 

"b 

TEM 

Temporary storage for a matrix. 

TEMA - TEME 

Temporary work area. 

THETA 

9 

THETO 

00 

' 

TIC 

T(X, n, P, 6, Bq) ; Eq. (2); also §3.1, Intensity, 

TIME 

Real CPU time in seconds. 

TIMV 

Virtual CPU time in seconds. 

TITB 

Title information. 

THAT 

Tc^; Eq. (39). 

TPDUST 

Tropospheric dust content of a basic layer. 

TVECT 

5Cn» 

UMAT 

U^ ; Eq. (40). 
, n 

UVECT 

u^ ; Eq. (42). 

VECLl 

Eq, (43). 

VECL2 

Eq. (43). 

XBLNK 

Variable to provide blank space in title. 
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is 4* [14 + (18* 10* 6) 4- (18* 10* 6) + 6] , i.e., 8720, The parameters 18, 
10 j and 6 accommodate output for 18 values of 6, 10 values of Sq, and 
6 values of X, respectively. The quantity TITB carries information 
about the basic atmospheric model. 


Datafile no. 17 is created for temporary storage of values of 
and matrices for each of 32 basic layers of the atmospheric 

model [Eqs. (35) and (33)]. These are single precision quantities of 
dimension 100 x loo (SITBB 24). Thus, the required physical length of a 
record of either matrix for a given basic layer is 40,000 bytes. The 
maximum record length which the system can handle is 32K (IK = 1024 
bytes) bytes. We have therefore broken up each full record in two 
physical records for writing and reading purposes. PIMAT matrix into 
BREKA and BREKB matrices, and DINV into BREKC and BREKD. Each of this 
BREKx record has a length of 20,000 bytes (SITBB 29 and SITBB 30). 
Equivalence between PIMAT, DINV, and BREKx are given by the statements 
no. SITBB 34 and SITBB 35. 


The part of the program contained between statements SITBB 148 
through SITBB 285 deals mainly with input and output which are discussed 
in §2.3 and 2.4, respectively. Quantities such as G, pg* •» 

m X , J 

etc., which are independent of wavelength are also generated by calling 
appropriate subroutines (SITBB 177 - SITBB 183) , 

The section of this program contained between the statements SITBB 
286 through SITBB 360 is used for dividing all basic layers into sub- 
layers whenever necessary, and for computing various optical properties 
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of each of these sublayers. First, various optical thicknesses [viz,, 

At , At , At * , At ' ’ , At , At ’ , and At ; see Eq . 

(3)] of each of the basic layers are computed during the execution of 
the statements no. SITBB 303 through SITBB 310. The next five state- 
ments are used to determine the number of sublayers into which a given 
basic layer will have to be subdivided for satisfying the criterion 
that total optical thickness of no sublayer will exceed 0.02. State- 
ments SITBB 316 through SITBB 334 are then used to generate serial num- 
bers of each of the sublayer, for computing their various albedoes [Eq. 
(8)] as well as optical thickness (DTAU), and for computing total opti- 
cal depth (TAU) at their bases. The procedure is started with the top- 
most basic layer, and is terminated with an appropriate message if total 
number of sublayers required exceeds 300 (SITBB 322 - SITBB 325). The 
remaining statements in this section are used to initialize the vectors 
ICHCK and INEW (see Table III), and for computing attenuation suffered 
by the direct solar radiation as it arrives at bases of various sub- 
layers from ten different directions (ATEN) , as well as attenuation 
suffered by a ray while traveling through a sublayer from one of the 18 
different directions (BTEN) . 


Statements numbered SITBB 366 through SITBB 380 are used to deter- 
mine the order of the spherical harmonics approximation to be used for 
evaluating the multiple scattering contribution to the outgoing radia- 
tion. This is done by examining total number of terms in the Legendre 
series representing the normalized phase functions for scattering for 
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both types of aerosols. Even in the absence of any type of aerosol, the 
P 39 “th approximation is used. 

The next step (SITBB 381 - SITBB 403) is to determine the number of 
conditioning points, and their locations in terms of sublevel number 
(ICPOS) as well as corresponding optical depth (TAU). 

The subroutine SUBSTA is then called upon for returning values of 
the quantities CAPLAM, CAPLX, and CAPLY defined in Table III. 

Statements SITBB 405 through SITBB 432 deal with computations of 
the primary-scattering contribution to 1(0; y, -Ho)* The first term on 
the right hand side of Eq. (48) is substituted in Eq. (50) for this pur- 
pose. This primary-scattering contribution is computed by taking into 
account all (greater of the input parameters NMXST and NMXTP) terms of 
the Legendre series representing scattering phase function of aerosols. 
The series appearing on the right hand side of Eq. (48) has been evalu- 
ated in two parts, viz., SITBB 418 - SITBB 420, and SITBB 421 - SITBB 426. 
This is because the quantity CAPLAM is available for the first, NTR num- 
ber of terms, only. 

The next step is computations of the term 0.5 Ax^ [s^ ( t^ , iso) + 
s (t.,, ; iso)] assuming I (- Mq) equal to unity [see Eqs. (20) 

and (30)], and the primary-scattering contribution to the diffuse radia- 
tion emerging at the top when the model is illuminated by isotropic rad- 
iation from below [the first term on the right hand side of Eq. (49) 
substituted in Eq. (50)]. Computations of both of these terms require 
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values of the exponential integral defined in §2.2, and stored in data- 
file no. 15. After reading in tabulated values of the integral for a 
given value of the subscript Ji (SITBB 443) , subroutine POLATE is called 
upon to return the interpolated value of the integral at a given value 
of T. The first of the two terms listed in the beginning of this para- 
graph is stored in locations designated CAPLY(I, L, 11), while the second 
one is stored in locations designated EIN(J, 11). Completion of compu- 
tations in this particular section (SITBB 433 through SITBB 462) also 
provide values of the directly transmitted upward flux due to isotropic 


Illumination from below 
nated FXS(L, 11). 



,1 

exp[- 


T)/y] p d y 


in locations desig- 


The part of the program contained between statements no. SITBB 463 
through SITBB 468 is used for initializing values of a^ vectors for 
all eleven directions of illumination [Eq. (36)] j and of the matrix 

[Eq. (34)] by calling the subroutine SUBSTB. 

A very good portion of the computational load is contained in the 
next block, viz. , SITBB 469 - SITBB 514. It essentially consists of a 
DO LOOP 400 whose purpose is to compute [Eq. (35)] and 
(33)] matrices for all sublayers of the atmospheric model under study 
(SITBB 477 - SITBB 494) , and to perform the stabilizing transformations 
(§3.4) for those sublevels corresponding to one of the conditioning 
points (SITBB 499 - SITBB 513) . 

First the matrices DT^... and tt. for the i-th sublayer are 

-'JjJ+l -3 

evaluated by calling the subroutine PITRIX, only if this sublayer cor- 
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responds to the topmost sublayer of a basic layer (SITBB 477 - SITBB 482). 
If these matrices are evaluated, then their values are also stored on the 
datafile no. 17 (fifth paragraph in §4.4) by executing the next eight 
statements. Subroutine SUBSTC (SITBB 494) is then called to compute 
matrix [Eq. (34)], and a. vectors [Eq. (36)]. 

Second, for a sublevel corresponding to one of the conditioning 
points (SITBB 499), a stabilizing transformation is performed as follows: 

(1) Call the subroutine SUBSTD (SITBB 500) for transferring the 
top-half of the matrix into a matrix location designated 

CINV. 

(ii) Call the subroutine SOLISY (SITBB 501) for obtaining an expli- 
cit inverse of the matrix CINV in another matrix location de- 
signated CIMAT. 

(iii) After printing information about the result of attempts to in- 
vert CINV, terminate the program in the case of a failure (see 
discussion of the argument ITR in the subroutine SOLISY) . 

(iv) Call the subroutine SUBSTE (SITBB 505) to generate Up and Tp 
matrices (§3.4), and store their values on the datafiles no. 

11 and 12, respectively. 

(v) Call the subroutine SUBSTF (SITBB 509) to generate new F, ma- 
trix, i.e., the reconditioned one. 

(vi) Call the subroutine SUBSTG (SITBB 510) to generate t^^^ and uq^ 
vectors for all eleven directions of illumination, and store 
their values on datafiles no. 13 and 14, respectively. 
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Execution of the statements contained between SITBB 515 and SITBB 
550 results in evaluation of the vector corresponding to the 

bottom-most conditioning point (lower-most level of the atmospheric 
model) by using Eq. (43). This vector is evaluated for each of 

the eleven directions of illumination, and the parameter ISW is set to 
a non-zero value in the case of a failure in solving the linear system 
of equations [Eq. (43)] for a given direction. The subroutine SUBSTH is 
used for transferring to a location designated DINV, and the sub- 

routine SUBSTI is used for generating the bottom-half of g- vectors 
[Eq. (28)]. The quantity ^(A,fl,P) appearing in Eq. (2) is computed at 
the stage SITBB 551; also see Eq. (23). 

The second number-crunching portion of the program is contained be- 
tween the statements SITBB 556 through SITBB 605. Its first purpose is 
to evaluate g^ vectors at all conditioning-point levels of the model 
and for all eleven directions of illumination by making use of Eqs. (44) 
and (45). Its second purpose is to compute upward and downward diffuse 
fluxes (see subroutine FLUX), and the multiple-scattering contribution 
to the outgoing diffuse radiation [second term on the right hand side of 
Eqs. (48) and (49) substituted in Eq. (50)]. The direct transmission of 
the isotropic illumination from below is added to the outgoing diffuse 
radiation during execution of the statements no. SITBB 603 through SITBB 
605. 

The first purpose is served by the statements SITBB 557 through 
SITBB 567. The vectors appearing on the right hand side of Eq. 
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(44) are available at the locations designated VECL2. After reading in 
b b 

values of Un matrix and up well as tp, vectors from the 

disk (SITES 558 - SITES 562), an entry is made in the subroutine SUESTJ. 
Statements no. SUSTJ 9 through SUETJ 18 are used for computing and stor- 
ing values of the Up vectors at locations designated VECLl, and 

k- 1 

AVECT. At this stage, the AVECT locations contain the top-half of g. 

vectors at the level under scrutiny. The bottom-half of g. vectors 

is computed by making use of statements no. SUETJ 20 through SUETJ 26 

if the conditioning point does not correspond to the top-most level of 

the model, and by making use of statements no. SUETJ 28 through SUETJ 35 

if the conditioning point does correspond to the topmost level of the 

b 

model. This is because, for this latter case. Up = - G by definition. 
The ^Ck-i matrix is then read in for being ready for the next time 
around. At this stage, we have values of g, vectors at atmospheric 
sublevels where the conditioning points are located. 

The second purpose is served during execution of the statements no. 
SITEE 568 through SITBE 597. Subroutine FLUX is called at the stage 
SITEE 570 for computing values of various fluxes at the sublevel cor- 
responding to the l”®'" conditioning point. Then an entry is made 
in the subroutine SUESTK for storing values of gp . vectors in the 
location designated AMOMT. The DO LOOP 800 (SITEE 573 -SITBE 590) is 
for evaluating g. vectors [Eq. (46)] for all sublevels located between 
the conditioning points (subroutine SUBSTL, SITBE 586).* 

After obtaining g. vectors for a given sublevel intermediate between 

~^3 

*Footnote is on page 68. 
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the conditioning points and Cj^, fluxes at that sublevel are 

computed during execution of the statement no. SITBB 587. After a 
call to the subroutine SUBSTK(SITBB 588), we have values of g. vec- 
tor$ for two consecutive sublevels in locations designated AMOMT and 
BMOMT. We can therefore compute the multiple-scattering contribution to 
the outgoing radiation due to the scattering mass between these two sub- 
levels, by calling the subroutine SUBSTM. 

The last two sections of the program (SITBB 606 - SITBB 635, and 
SITBB 636 - SITBB 657) are used for generating the flux and intensity 
outputs described in §2.4. After this, the control is unconditionally 


(Footnote from pg. 67) 

*For evaluation of g. vectors between two consecutive condition- 
ing points, we require values of and ^ matrices for all in- 

termediate sublayers. However, if two consecutive sublayers are part 
of the same basic layer, their optical properties, and hence their 
and , matrices are exactly the same. (Because of this, values of 

these matrices stored on the disk are for the topmost sublayers of all 
basic layers, only.) Thus, values of these matrices are to be read in 
for the first value (LMIN) of the index L of the DO LOOP 800, or al- 
ternately, if the curreflt sublayer has different optical properties from 
the preceding one. This objective is accomplished through the part of 
the program contained between statements no. SITBB 575 through SITBB 
585. 
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transferred to the statement no. SITBB 187 for starting computations 
for the next wavelength, but for the same atmospheric model. 


V. 
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'V 


VI. LISTING OF THE FORTRAN STATEMENTS 
6.1 Program SITAA: (See page 72.) 
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o o n o n o 




SITAA 

1 

PROGRAM FOR COMPUTING THE INTEGRAL 


SI TAA 

2 

EXPI-TAU/MU) ♦ P SUB L OF Mu ♦ OMU OVER THE 

RANGE 0.0 TO 1.0 

SITAA 

3 

AFTER DIVIDING THE RANGE AT ZERO-POS I T I ONS OF P 

SUB L, 

SITAA 

4 

AND then INTEGRATING OVER EACH INTERVAL USING SIMPSON'S RULE-. 

SITAA 

■ 5 



SITAA 

6 

REAL * 8 TAUISOIJ ,ZPL( 52) tAMUl 501) tOMUISOO) ,FNPL(50U ,SUM(50l) » 

SITAA 

7 

1 T EMA, TEM B, T EMC, TEME,TEMF, CON A, 0 AT Ef HOUR fFNEXI 501 ), 

SITAA 

8 

2 CIOKAI 100) ,C0K8( 100 ) ,GOKC 1100) ,RAMUI50l) 


SITAA 

9 

REAL ♦ 4 BUMI501) 


SITAA 

10 

INTEGER * 4 ILIMI52) 


SITAA 

11 

15 FORMAT 115) 


SITAA 

12 

20 FORMAT ( 5 F 1 0 . 7 , 16X , 1 4 ) 


SITAA 

13 

30 FORMAT ( IH 1// T20 , • I NTE GRAL EXPI-TAU/MU) * P SUB*, 

I5,T56, 

SITAA 

14 

1 'OF MU =!' DMU FOR TAU EQUAL TO'/) 


SITAA 

15 

40 FORMAT I / T4 , ' TAU * ,T 1 5 , *0 ^ 00 • i T27, * 0 . 01 ♦ , T39, ' 0. 02 

',T51, '0.03', 

SITAA 

16 

1 T63, '0.04' ,T75, '0.05' ,T8 7, '0.06' ,T99, '0.07* ,Tlll 

, '0.08* ,T123, 

SITAA 

17 

2 'O.O?'/) 


SITAA 

18 

50 FORMAT (0PF7 .3 , IP 10D12 .4 ) 


SITAA 

19 

55 FORMAT ( 0PF7.3 , IP 1D12. 4) 


SITAA 

20 

70 FORMAT (/ /T20 PROGRAM TERMINATED AS L AND LC ARE 

= ' ,215//) 

SITAA 

21 

80 FORMAT ( /T3 , ' COMP LET ED L = ' , I 5, T25 , * V I RTUAL & REAL TIME IN SECS. 

•SITAA 

22 

1 ,2F9.2/) 


SITAA 

23 

DEFINE file 15 ( 1 01 , 2004 , L , I PT I 


SITAA 

24 

IR = 1 


SITAA 

25 

IW = 8 


SITAA 

26 

READ HR, 15) L 


SITAA 

27 

00 95 N = 1,501 


SITAA 

28 

TAUIN) = IN-l) * l.OD-02 


SITAA 

29 

SUM(N) = O.ODO 


SITAA 

30 

BUM(N) = 0.0 


SITAA 

31 

95 CONTINUE 


SITAA 

32 

DO 98 J = 1,100 


SITAA 

33 

COKA(J) = 2*J - 1 


SITAA 

34 

COKB(J) = J - 1 


SITAA 

35 

COKC(J) f= l.ODO/J 


SITAA 

36 

98 CONTINUE 


SITAA 

37 

CONA = 1. 000/3. ODO 


SI TAA 

38 

100 CONTINUE 


SI TAA 

39 

call TIMDAT IDATE ,H0UR ,ITVB, ITRB) 


SITAA 

40 

NZpL = I L/2) + 1 


SITAA 

41 

ZPL(l) = 0.000 


SITAA 

42 

IF I NZPL .EQ. 1 ) GO TO 120 


SITAA 

43 

DO 110 I = 2, NZPL, 5 


SITAA 

44 

READ I IR,20,END=1000) ZPL 1 1 ) , ZPL I I* 1 ) , ZPLI I +2 ) , ZPL ( 1+3 ) , 

SITAA 

45 

1 ZPL(I+4),LC 


SITAA 

46 

IF ( LC .EQ. L ) GO TO llO 


SITAA 

47 

write IIW,70) L,LC 


SITAA 

48 

GO To 1000 


SITAA 

49 

110 CONTINUE : 


SITAA 

50 

120 CONTINUE 


SITAA 

51 

ZPLINZPL+1) = 1.000 


SITAA 

52 

NSUB = 500/NZPL 


SITAA 

53 

NS = (NSUB/2) *2 


SITAA 

54 

IF { NS .NE. NSUB) NSUB = NSUB - I 


SITAA 

55 
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AMUdl = 0.000 

11 = 1 
1LIM( 1 ) = 1 

TEME = l.ODO/NSUB 
00 160 K = 1,NZPL 

TEMA = (ZPL(K«-1) - ZPL(K)) ♦ TEME 

12 = I I + NSUB - I 
IL IM(K + 1I = 12 ♦ I 
no 150 I = 11,12 
DMUCIl = TEMA 

AMUn + n = AMU( I ) ♦ TEMA 
RAMU(H-l) = DEXP(-1.0D-02/AMU( I + U) 

150 CONTINUE 

II = 12 ♦ I 
160 CONTINUE 
IMAX = II 

IF ( L ,GT. 0 ) GO To 170 
DO 165 I = I, IMAX 
FNPLil) =1.000 
165 CONTINUE 
GO TO 200 

170 IF ( L .GT. 1 ) GO TO ISO 
DO 175 I = IfIMAX 
FNPL( I ) = AHU( I ) 

175 CONTINUE 
GO TO 200 
130 continue 

00 198 I = 1,IMAX 
TEMA = l.ODO 
TEMB = AMU(l) 

00 195 J = 2,L 

TEMC = ICOKAUJ * AMU( H ♦ TEMB - COKBU) ♦ TEMA) ♦ COKCiJ) 
TEMA = TEMB 
TEMB = TEMC 
195 CONTINUE 

FNPL(I) = TEMC 
198 CONTINUE 
200 CONTINUE 

DO 210 I = 1, IMAX 
FNEXm = 1,000 
210 CONTINUE 

00 400 N = 1,501 

IF { N ,EQ. 1 ) GO TO 240 

FNEXm = O.ODO 

DO 230 I = 2, IMAX 

FNEX( I ) = FNEXI I ) * RAMU( I) 

IF { FNEX(I) .LT. l.OD-60) FN£X( I ) = 0.000 
230 CONTINUE 
240 CONTINUE 

SUMtN) = O.ODO 
00 300 J = 1,NZPL 

11 = I L I M U ) 

12 = ILIM{ J+1) 

TEMB = DMU(11)*C0NA 

TEMA = FNEX(Il) ♦ FNPUIl) *■ FNEXII2) * FNPUI2) 


SITAA 56 
SITAA 57 
SITAA 58 
SITAA 59 
SIT|AA 60 
SITAA 61 
SITAA 62 
SITAA 63 
SITAA 64 
SITAA 65 
SITAA 66 
SITAA 67 
SITAA 68 
SITAA 69 
SITAA 70 
SITAA 71 
SITAA 72 
SITAA 73 
SITAA 74 
SITAA 75 
SITAA 76 
SITAA 77 
SITAA 78 
SITAA 79 
SITAA 80 
SITAA 81 
SITAA 82 
SITAA 83 
SITAA 84 
SITAA 85 
SITAA 86 
SITAA 87 
SITAA 88 
SITAA 89 
SITAA 90 
SITAA 91 
SITAA 92 
SITAA 93 
SITAA 94 
SITAA 95 
SITAA 96 
SITAA 97 
SITAA 98 
SITAA 99 
SI TAAIOO 
SITAAlOl 
SITAA102 
SITAAI03 
SITAA104 
SITAA105 
SITAA106 
SITAA 107 
SITAA108 
SITAA 109 
SITAAllO 
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I I » II «• 1 

SITAAlll 


TEME = O.ODO 

SITAA112 


00 260 I = I 1,1 2.2 

SITAA113 


TEME = TEME ♦ FNEXd) • FNPLII) 

SITAA114 

260 

CONTINUE 

S1TAA115 


II = 11+ 1 

S ITAAl 16 


12 = 12 - 1 

SITAA117 


TEMF ^ 0.000 

SITAAU8 


DO 280 I = 11,12,2 

SITAA119 


TEMF = TEMP + FNEXd) FNPLCI) 

SITAA120 

280 

CONTINUE 

SITAA121 


SUM(N) = SUM(N) + TEMB * ITEMA + 4.000 * TEME ♦ 2.000 * TEMPI 

SITAA122 

300 

CONTINUE 

SITAA123 


8UM(N) = SUM(N) 

SITAA124 

400 

CONTINUE 

SITAA125 


LK = L + 1 

SI TA A 126 


WRITE (15'LK) BUM 

SITAA127 


CALL TIMDAT ( DA TE ,HOUR , I TVE , I TRE I 

SITAA128 


TIMV = (ITVE - I TVS) ♦ 0.001 

SITAA129 


TIMR = (ITRE - ITPB) * O.OOl 

SITAA130 


WRITE (6,80) L, TIMV, TIMR 

SITAA131 


L = L ♦ 1 

SITAA132 


GG TO 100 

SITAA133 

1000 

CONTINUE 

SITAA134 


LMX - L 

S ITAAl 35 


od 600 L = 1,LMX 

S ITAAl 36 


REAO (15'L) BUM 

SITAA137 


LI = L - 1 

S ITAAl 38 


WRITE (IW,30) LI 

SITAA139 


WRITE IIW,40) 

SITAA140 


DO 500 I = 1,500, 10 

SITAA141 


WRITE (IW.50) TAUn ) ,(BUM(I+J-1I ,J = 1,10I 

SITAA142 

500 

CONTINUE 

SITAA143 


WRITE (IW, 55) TAUI501) ,BUM( 501) 

SITAA144 

6 00 

CONTINUE 

SITAA145 


RETURN 

SITAA146 


END 

SITAA147 
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6.2 Subroutines called by SITBB ; (See page 76.) 


oooo nooo 


SUBROUTINE BCMAT C GMAT , AL t AR I BCMAT I 

BCMAT 2 

PROGRAM FOR COMPUTING ALL ELEMENTS OF THE 50 BY 50 BOUNDARY BCMAT 3 


CONDITION MATRIX, G,»,, AND ELEMENTS OF THE BIOIAGONAL MATRIX A..BCfiAT V 






BC^AT 

5 


REAL * A GMAT(50»50) ,AL( 100) ,AR( 100) 



BCMAT 

6 


TEMA = -0.5 



BCrtAT 

7 


DO no J = If 50 



BCMAT 

8 


L * J - 1 



BCMAT 

9 


GMATIlfJ) = TEMA 



BCMAT 

10 


DO lOQ I = 2t50 



BCMAT 

11 


11=1-1 



BCMAT 

12 


TEMB = ( -2*L * 2*11 - 1) * (L ♦ 11) * (2+II 

+ 1) 

BCMAT 

13 


TEMC = 2*11* 12’¥L - 2*11 - 1) * (L + 

II * 

1) 

BCMAT 

14 


GMATdfJ) = (TEMB ♦ GMATII I , Jd/TEMC 



BCMAT 

15 

100 

continue: 



3CMAT 

16 


TEMB = (3 - 2*J) * (1 ♦ 4*J) 



BCMAT 

17 


TEMC = (2*J + 2) * (<f*J - 3) 



BCMAT 

18 


TEMA = (TEMA * T£MB)/TEMC 



BCMAT 

19 

no 

CONTINUE 



BCMAT 

20 


DO 120 I = 1,100 



BCMAT 

21 


TEMA = I*0/(2*I - 1) 



BCMAT 

22 


ALII) = TEMA * ( I - 1) 



BCMAT 

23 


AR{ I ) = TEMA * I 



BCMAT 

24 

120 

CONTINUE 



BCMAT 

25 


RETURN 



BCMAT 

26 


END 



BCMAT 

27 


SUBROUTINE FLUX ( AMUO , ATEN , VECL l ,FXS , FXU 

fFXD, 

FXN,NTR,L, ISW) 

FLUX 

1 





FLUX 

2 


SUBROUTINE FOR COMPUTING UPWARD AND DOWNWARD 

DIFFUSE 

FLUX 

3 


fluxes at a given level from VALUES OF 

THE MOMENTS.... 

FLUX 

4 





FLUX 

5 


REAL * A VECLl(100,ll) ,AMUO( 10),ATEN(301 

flO) , 

FXSOOlfll) , 

FLUX 

6 


1 FXO( 3 01, in ,FXU( 301,11) ,FXN(3 01,ll) 



flux 

7 


INTEGER « 4 ISW(ll) 



FLUX 

8 


DATA CONA /-6.283185/, CONB /-3,141593/ 



FLUX 

9 


NTP2 = NTR/2 



FLUX 

10 


11 = NTR2 ♦ 1 



flux 

11 


DO 150 N = l,U 



FLUX 

12 


IF ( ISWtN) .EQ. 0 ) GO TO 120 



FLUX 

13 


FXU(L ,;N) =0.0 



FLUX 

14 


FXO(L,N) = 0.0 



FLUX 

15 


GO TO 150 



FLUX 

16 

120 

CONTINUE 



FLUX 

17 


TFMA = -0.25 * VECLl(l,N) * 0.5 * VECLI(I1,N) 


FLUX 

18 


TEMB = 0.25 * VECLlll,N) + 0.5 * VECLKIlfN) 


flux 

19 


TEMC = 0.5 



FLUX 

20 


DO 130 J = 2,NTR2 



FLUX 

21 


J1 = ( J-l) ♦ 2 



FLUX 

22 


TEMC = 1(3 - Jl) * TEMC ) / (Jl + 2) 



FLUX 

23 


TEND = U1 + 0.5 ) ♦ TEMC * VECLUJfN) 



flux 

24 


TcMA = TEMA - TEMD 



FLUX 

25 


TfcMB = TEMB ♦ TEMO 



FLUX 

26 

130 

CONTINUE 



FLUX 

27 


FXO(L,N) = CONA * TEMA 



FLUX 

28 
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FXU(LtN) 
150 CONTINUE 
DO 160 N 
FXS(L»N) 
160 CUNtINUE 
on 170 N 
FXN(L,N) 
170 CONTINUE 
FXN( L, ID 
RETURN 


= 6.283185 • T6MB 

= 1,10 

= CONB • AMUOINI * ATEN(LfN) 

= 1,10 

= FXS(L,N) FXDU,NI - FXU(L,NI 
= FXStLill) ♦ FXU(L,lll - FXDILfll) 


END 

SUBROUTINE LEGFUN ( THETO, AMUO , FNYN, THETA , AMU , ENYP I 


PROGRAM FOR COMPUTING LEGENDRE POLYNOMIALS FOR 28 110 NEGATIVE 
AND 18 POSITIVE) DIFFERENT VALUES OF THEIR ARGUMENTS, MU... 

■ i 

REAL 4 THETOI 10) , AMUO( 10) ,FNYN(300, 10) ,THETA( 18) ,AMU( 18) , 

1 FNYP(300,18) 

REAL ^ 8 DHETOC 10),TEMA,TEMB,TEMC,TEMD,TEMX,TEME,COKA(300) , 

1 COKB(300),C0KC(300) 

DATA DHETO 70.000,45.000, 60. 000,70.000, 75.600,79.600,82.500, 

1 84.700,86.700,90.000/ 

TEMD = 3.1415926535397932/180.000 
TEME = l.O/TEMO 
COKAI 1 ) = -l.ODO 
COKBIl) = -l.ODO 
COKC(l) = 0.000 
DO 120 K = 2,300 
COKA(R) = 2*K - 3 
COKBIK) = K - 2 
■ COKC(R) = l.0D0/(K-l) 

120 CONTINUE 

DO 150 I = 1,10 
THETOn ) = DHETOI I) 

TEMA = l.ODO 

TEMB = -DCOSITEMD ♦ DHETO(D) 

IF ( DHETO(I) .EQ. 90.000 ) TEMB = O.ODO 

AMUO(I) = TEMB 

FNYNd ,1) = TEMA 

FNYN(2,I) = TEMB 

TEMX = TEMB 

DO 130 K = 3,300 

TFMC = (COKA(K) ♦ TEMX * TEMB - COKB(K) ♦ TEMA ) +00X0 ( K ) 

TEMA = TEMB 
TEMB = TEMC 
FNYN(K,I) = TEMC 
130 CONTINUE 
150 CONTINUE 

DO 200 I, = I 1,18 

TEMA = i;.ODO 1 

TEMB = (7326. 000/5371. ODO ) 7 OSIN (TEMO ♦ 3.000 + (I-l») 

7326 = 6371 955 = RAO. OF EARTH ♦ HEIGHT OF THE SATELLITE.. 

TEMB = DSQRTd.OOO - TEMB ♦ TEMB) 


FLUX 29 
FLUX 30 
FLUX 31 
FLUX 32 
FLUX 33 
FLUX 34 
FLUX 35 
FLUX 36 
FLUX 37 
flux 38 
FLUX 39 
. LEGFN I 
LEGFN 2 
LEGFN 3 
LEGFN 4 
LEGFN 5 
LEGFN 6 
LEGFN 7 
LEGFN 8 
LEGFN 9 
LEGFN 10 
LEGFN 11 
LEGFN 12 
LEGFN 13 
LEGFN 14 
LEGFN 15 
LEGFN 16 
LEGFN 17 
LEGFN 18 
LEGFN 19 
LEGFN 20 
LEGFN 21 
LEGFN 22 
LEGFN 23 
LEGFN 24 
LEGFN 25 
LEGFN 26 
LEGFN 27 
LEGFN 28 
LEGFN 29 
LEGFN 30 
LEGFN 31 
LEGFN 32 
LEGFN 33 
LEGFN 34 
LEGFN 35 
LEGFN 36 
LEGFN 37 
LEGFN 38 
LEGFN 39 
LEGFN 40 
LEGFN 41 
LEGFN 42 
LEGFN 43 
LEGFN 44 
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AMUl I ) = TEMB 
THgTAU) = TewE 
FNYPa,II = TEMA 
FNYP(2,I» * TEMB 


t 0ARC0SCTEM8) 


180 

200 


TEMX = 

DO 180 
TtMC = 

TFM4 = 

temb = 

FNYPCK,!) * 

continue 

CUNTINUE 

return 

END 

SUBROUTINE PITRIX 


TEMB 

K - 3,300 
ICOKAIK) * 
TEMB 
TEMC 

TEMC 


TEMX ♦ TEMB - COKB(K) « TEMA)* COKCIK) 


(AL, AM,AR,P1MAT ,TEM, 0 1 NV , X i B , I P , L I MU, NMX 1 


SURROUTINE FOR OBTAINING VALUES OF THE ELEMENTS OF THE PI MATRIX 
STARTING WITH ELEMENTS AL AND AR OF THE BIDIAGONAL MATRIX A, 

AND ELEMENTS AM, DF THE DIAGONAL MATRIX C.* 

N.R. : THE SCALAR FACTOR 0.5 * DELTA TAU IS TO BE INCLUDED 
IN AM BEFORE CALLING THIS SUBROUT I NE« . . 

THIS PROGRAM ALSC RETURNS VALUES OF THE ELEMENTS OF THE 
INVERSE OF THE MATRIX 0 SUB I , 1 + 1 

REAL * 4 AL(lOOI,AM(lOO),AR{lOO),PIMATUOO,lOO),TEM(10O,l0O), 

I B<100),X(100) 

REAL * 4 0INV(100,100) 

INTEGER * 4 IP( 100) ,LIMU( lOO) 

10 FORMAT (/TIO, ‘UPPER LIMIT OF THE DO LOOP IS LOWER THAN ITS LOWER 
IIMIT. PROGRAM TERMINATED.! AND LlMUd) ARE =-,2I5//) 

20 FORMAT </TlO,'ALL ELEMENTS IN ROW NUMBER* , 1 5 ,T45 AR E ZEROS 
lAM TERMINATED.'/) 


LEGFN 

45 

LEGFN 

46 

LEGFN 

47 

LEGFN 

48 

LEGFN 

49 

LEGFN 

50 

LEGFN 

51 

LEGFN 

52 

LEGFN 

53 

LEGFN 

54 

LEGFN 

55 

LEGFN 

56 

LEGFN 

57 

LEGFN 

58 

PITRX 

1 

PITRX 

2 

PITRX 

3 

P ITRX 

4 

PITRX 

5 

PITRX 

6 

PITRX 

7 

PITRX 

8 

PITRX 

9 

PITRX 

10 

PITRX 

11 

PITPX 

12 

PITRX 

13 

PITRX 

14 

PITRX 

15 


30 FORMAT (/TlO,'Z£RC 
UNATED.*/) 


PIVOT FOR COLUMN NUMBER • , 1 5 ,T47 , • . PROGRAM 


DECOMPOSE A MATRIX IGAUSSIAN ELIMINATION WITH PIVOTING 
IN L + U FORM. CHAPTERS 9 C 11 OF COMPUTER SOLUTION OF 
algebraic SYSTEMS BY G. FORSYTHE AND C.B. MOLER, 
PRENTICE - HALL, 1967.. 


) 

LINEAR 


LPITRX 
PITRX 
PROGRPITRX 
PITRX 
TERMPITRX 
PITRX 
PITRX 
PITRX 
PITRX 
PITRX 
PITRX 
PITRX 


16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 



IW - 6 


PITRX 

28 


NMXl = NMX 

- 1 

PITRX 

29 


00 no J = 

l,NMX 

PITRX 

30 


00 105 I = 

1 , NMX 

PITRX 

31 


TEM(I,J) = 

0.0 

PITRX 

32 

105 

CONTINUE 


PITRX 

33 

110 

CONTINUE 


PITRX 

34 


00 115 1 = 

1,NMX 

PITRX 

35 


IP (I) =1 


PITRX 

36 


TEM(I,I) = 

AM(I) 

PITRX 

37 

115 

CONTINUE 


PITRX 

38 


DO 120 I = 

2, NMX 

PITRX 

39 


II = I - 1 


PITRX 

40 


TEMd.ll) =« 

AL 1 1 ) 

PITRX 

41 
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120 


125 


130 


CONTINUE 

DO 125 I » l.NMXl 
li « I ♦ 1 

TEMi I , in » ARi n 

CONTINUE 

X('u = A.yAXllABSlTEM(l,infABS(TEM(l,2m 

X(NMX) = AMAXl(ABS(TEMlNMX,NMXl)),ABS(TEM{NMX,NMXin 

00 130 I = ZfNMXl 

11 = I - I 

12 - I ♦ 1 


Xt I ) = AMAXl TABS ( TEH ( I ,11)) ,ABSITEHI It I) ) ) 
Xm = AMAXUXI DtABSITEMl 1,12))) 

CONTINUE 

DO lAO I = ItNMX 

IF ( XII) .NE. 0.0 ) GO TO 135 

WRITE (IW, 20) I 


CALL EXIT 

135 XU ) = l.O/XI I ) 
iAO CONTINUE 

do' 180 K = IfNMXl 
TEMA =0.0 
K1 = K + 1 
DO 150 1 = K,K1 
IS = IPU) 

TEMB = TEMIIS.K) * XUS) 

TEM3 = AB$(TEM3) 

IF ( TEMB .LE. TEMA ) GO TO 150 
TEMA = TEMB 
IDX = I 
150 CONTINUE 

IF ( TEMA .NE. 0.0) GO TO 155 
write (IW,30) K 
CALL EXIT 
155 CONTINUE 

IF I IDX .EQ. K) GO TO 160 
J = IP IK) 

IP(K) = IPIIDX) 

IP(IDX) = J 
160 CONTINUE 
KP = IPIK) 

TEMA = 1 .O/TEMI KP,K) 

K2 = K ♦ 2 

IF I K2 .GT. NMX ) K2 = NMX 
DO 175 I = Kl,K2 
IS = IP! I ) 

TEMIlStK) = TEMIIS.K) ♦TEMA 
K3 = K >3 

IF I K3 .GT. NMX ) K3 = NMX 
DO 170 J = Kl,K3 

TEMIIS.J) - TEMIIS,J) - TEMIIS,K) ♦ TEMIKPtJ) 
170 CONTINUE 
175 CONTINUE 
180 CONTINUE 

IS = I PI NMX) 

IF I TEMIIStNMX) .NE. 0.0 ) GO TO 190 


PITRX A2 
PITRX 43 
PITRX 44 
PITRX 45 
PITRX 46 
PITRX 47 
PITRX 48 
PITRX 49 
PITRX 50 
PITRX 51 
PITRX 52 
PITRX 53 
PITRX 54 
PITRX 55 
PITRX 56 
PITRX 57 
PITRX 58 
PITRX 59 
PITRX 60 
PITRX 61 
PITRX 62 
PITRX 63 
PITRX 64 
PITRX 65 
PITRX 66 
PITRX 67 
PITRX 68 
PITRX 69 
PITRX 70 
PITRX 71 
PITRX 72 
PITRX 73 
PITRX 74 
PITRX 75 
PITRX 76 
PITRX 77 
PITRX 78 
PITRX 79 
PITRX 80 
PITRX 81 
PITRX 82 
PITRX 83 
PITRX 84 
PITRX 85 
PITRX 86 
PITRX 87 
PITRX 88 
PITRX 89 
PITRX 90 
PITRX 91 
PITRX 92 
PITRX 93 
PITRX 94 
PITRX 95 
PITRX 96 
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WRITE (IW,30t NMX 
CALL EXIT 
190 CONTINUE 

on 210 I = 1,NMX 
IF ( 1P( 1 ) .GE. I ) GO TO 205 
LIMUI I ) = IP( I) - 1 
GO TO 20 a 

205 L IMU( I J = I - I 
208 CONTINUE 

IF ( LIMU( I) .LE. 0 ) LIMUm * I 
210 CONTINUE 

□0 220 I = I, NMX 
B< n = 0.0 
220 CONTINUE 

DO 400 I SOL = It NMX 

IF ( ISOL .NE. 1 ) BUSOL-1) = 0.0 

B( ISDL) = l.O 

SOLVE THE linear SYSTEM OF EQUATIONS ( A * X - B ) BY USING 
THE L * U DECOMPOSITION OF THE A MATRIX... 

COMPUTE U * X = (INVERSE OF L » ♦ 8 ~ X TEMPORARY.. 
note that THE L MATRIX IS A 61 DIAGONAL ONE WITH ALL ELEMENTS 
ALONG ITS ^‘lAIN DIAGONAL EQUAL TO UNITY... 

COMPUTE U * X = (INVERSE OF L ) * B = X TEMPORARY.. 

xm = B(iP(in 
DO 260 I = 2, NMX 
IS = IP( I » 

II - LIMU(I) 

12=1-1 
X( I ) = B{ IS) 

IF ( 12 - II ) 225,230f250 
225 WRITE ( iWtlO) I ,LIMU(I ) 

CALL EXIT 

2 30 xm = xm - TEMUStU) ♦ X(Il) 

GO TO 260 
250 CONTINUE 

00 255 J = I If 12 

X( I )! = X( I ) - TEM(IStJ) ♦ X( J) 

255 CONTINUE 
260 CONTINUE 

IS = IP(NMX) 

X(NMX) = X(NMX)/TEM(ISfNMX) 

COMPUTE X = (INVERSE OF U ) * X TEMPORARY... 

II = NMX - 1 
IS = IP(II) 

Xdl) = ( X(II) - TEM( IS,NMx)tXlNMXn/TEM( IS,m 
DO 280 I = 3, NMX 
M = NMX ♦ 1 - I 
IS = IP( I I ) 

II = II f I 


PITRX 97 
PITRX 98 
PITRX 99 
PITRXLOO 
PITRXIOI 
PITRX102 
PITRX103 
PITRX104 
PITRX105 
PITRX106 
PITRX107 
PITRXIOO 
PITRX109 
PITRXllO 
PITRXlll 
PITRXU2 
PITRXU3 
PITRX114 
PI TRXllS 
PITRX116 
PITRX117 
PITRXl 18 
PITRX119 
PITRX120 
PITRX12I 
PITRX122 
PITRX123 
PITRX124 
PITRX125 
PITRX126 
PI TRX127 
PITRX128 
PITRX129 
PI TRX130 
PITRX13L 
PITRX132 
PITRX133 
PITRXl 34 
PI TRX135 
PITRX136 
PITRX137 
PI TKX138 
PITRX139 
P1TRX140 
PI TRX141 
PITRX142 
PITRX143 
PI TRX144 
PITRX 145 
PITRXL 46 
PI TRX147 
PITRXL48 
PITRX149 
PITRX150 
PITRX151 
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/ 


2B0 


300 

400 


420 

440 


460 

480 

520 

540 

550 


555 

560 


12 > I 1 4^ 1 


PITRX152 

xnn = (x(in - TEMns,ii)*x(ii) - tem(is,i2)+x(I2)>/tem(is,iu 

PI TRX153 

CONTINUE 


PI TRX154 

DO 300 J = 1,NMX 


PITRX155 

PiMATIJtlSOL) = XU) 


PI TRX156 

continue 


PITRX157 

CONTINUE 


PITRX158 

PITRX159 

PIMAT NOW CONTAINS INVERSE OF THE MATRIX S SUB Itl+1«( 


AITRX160 

PITRX161 



RE-ARRANGE ROWS OF PIMAT TO GENERATE INVERSE OF THE MATRIX 

PI TRX162 

0 SUB ItUl*.. 


PITRX163 

PITRX164 

NMX2 = NMX/2 


PlTRXi65 

DO 440 I = l,NMX2 


PITRXI66 

12 = 2*1 - 1 


PITRXI67 

DO 420 J - l,NMX 


PlTRXi68 

0INV(I,J) = P1MAT(I2.J) 


PITRX169 

CONTINUE 


PITRX170 

CONTINUE 


PITRX171 

DO 480 I = 1,NMX2 


PITRX172 

II * 2 * I 


PI TRX173 

12 = NMX2 ♦ I 


PITRX174 

DO 460 J - 1,NMX 


PITRX175 

DINVI 12, J) * PIMATI 11, J) 


P1TRX176 

CONTINUE 


PITRX177 

CONTINUE 


PITRX178 

PITRX179 

COMPUTE THE MATRIX (-1 ♦ 2 * INVERSE OF S SUB I,I+l * 

A) 

PITRX180 

PITRX181 

DO 540 J = l,NMX 


PITRX182 

TEMIJ.l) = 2.0 * PIMATIJ,2) * AU2) 


PITRX183 

DO 520 K = 2»NMX1 


PITRX184 

Kl = K - 1 


PITRX185 

K2 = K ♦ 1 


PITRX186 

TEMU.K) = 2,0 * (PIHATU.Kl) * AR(Kl) + PIMATIJ,K2) * 

ALIK2)) 

PITRX187 

CONTINUE 


PITRX188 

TEM(J,NMX) = 2.0 * P IM AT { J s NMX 1 ) * ARINMXll 


PITRX189 

CONTINUE 


PI TRX190 

on 550 I = 1,NMX 


PITRX191 

TEM(I,I) = -l.O + TEM( 1,1) 


PITRX192 

CONTINUE 


PITRX193 

PITRX194 

RE-ARRANGE BY ROWS AND THEN BY COLUMNS TO GENERATE PI 

MATRIX.... 

PITRX195 

PITRX196 

00 560 J = 1,NMX2 


PITRX197 

J1 = J * 2 - 1 


PITRX198 

DO 555 I = r,NMX 


P1TRX199 

PIMATI I,J!) = TEMI I, Jl) 


PITRX200 

CONTINUE i 


PITRX201 

CONTINUE 1 


PI TRX202 

DO 570 J = 1,NMX2 


PITRX203 

Jl = NMX2 + J 


PITRX204 

J2 = J ♦ 2 


PITRX205 

DO 565 I = 1,NMX 


PITRX206 
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PIMAT( I,Jll = TEM(I,J2» 

565 CONTINUE 
570 CONTINUE 

DO 580 I = 1,NMX2 
11=1*2-1 
on 575 J = l,NMX 
T£M(I,J) = PIMAT(Il.J) 

575 CONTINUE 
530 CONTINUE 

DO 590 I = 1,NMX2 

11 = NMX2 ♦ I 

12 = I V 2 

DO 585 J = 1,NMX 
TEMl Ilf J) = PIMATirZfJI 
585 CONTINUE 
590 CONTINUE 

DO 6C0 I = IfNMX 
DO 595 J = IfNMX 
PIMATI I , J) = TEM( If JJ 
595 CONTINUE 

600 continue 

RETURN 

END 

SUBROUTINE PQLATE (YTAB,XfY) 

SUBROUTINE FOP OBTAINING A LINEARLY INTERPOLATED 
VALUE (Y) OF A FUNCTION AT A POINT Xt WHEN ITS TABULATED 
VALUES (YTA3) ARE AVAILABLE AT 0.01 INTERVAL IN X STARTING 
WITH X = 0.00.... 

REAL * 4 Y TAB! 1 1 
N = 100.0 * X + 1 
Nl = N ♦ I 
XN = 0.01 * (N~li 

Y = YTAB(N) + (100.0 * (X - XN) * (YTAB(Nl) - YTAB(N))) 

RETURN 

END 

SUBROUTINE SLPTH (AMUQfDELS) 

computations of the length OF ONE KH VERTICAL PATHS IN A 
SPHERICAL ATMOSPHERE ALONG VARIOUS DIRECTIONSt AND 
AT VARIOUS POINTS IN THE ATMOSPHERE.... 

REAL * 4 DELS(32,10,32),H(33),AMU0( 10),AMUOSQ( lO)fRDH(33) 

DATA H / 70. 0,60. 0,5 0.0, 45.0 ,40. 0,3 5. 0,30. 0,25. Of 24. Of 23. Of 22. Of 

1 21.O,2O.O,l9.O,l0.O,l7.O,16,O,15*O,l4.O,l3.Ofl2.Ofll.OflO.Of 

2 9.0f8.:0,7.0,6.0,5.0,4.0f3.0f2.0fl.0,0.0/ 

DATA I? AD /6371.0/ 

DO 130 L = 1,32 
POHIU = i.O/(H(L) - H(LFin 
00 120 J = I, 10 
00 110 K = 1,32 
OELS(K,J,L> = 0.0 
HO CONTINUE 
120 CONTINUE 


PITRX207 
PITRX208 
PITRX209 
PITRX210 
PITRX211 
PITRX212 
PITRX213 
PITRX214 
PITRX215 
PITRX216 
PITRX217 
PITRX218 
PITRX219 
PITRX220 
PITRX221 
PITRX222 
PITRX223 
PITRX224 
PITRX225 
PITRX226 
PITRX227 
PITRX228 
PITRX229 
POL AT 1 
POLAT 2 
POLAT 3 
POLAT 4 
POLAT 5 
POLAT 6 
POLAT 7 
POLAT 8 
POLAT 9 
POLAT 10 
POLAT 11 
POLAT 12 
POLAT 13 
POLAT 14 
SLPTH I 
SLPTH 2 
SLPTH 3 
SLPTH 4 
SLPTH 5 
SLPTH 6 
SLPTH 7 
SLPTH 8 
SLPTH 9 
SLPTH 10 
SLPTH 11 
SLPTH 12 
SLPTH 13 
SLPTH 14 
SLPTH 15 
SLPTH 16 
SLPTH 17 
SLPTH 18 
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130 CONTINUE SLPTH 

'on 1^0 J - 1,10 SLPTH 

AMUO(J) = -AMUO(J) SLPTH 

AHUOSQiJ) = AMUCIJI ♦ AMUOUl SLPTH 

lAO CONTINUE SLPTH 

RAD2 = 2.0 * RAO SLPTH 

DO 200 KK = 1,32 SLPTH 

K = KK I SLPTH 

00 190 J = 1,10 SLPTH 

TEHX = (RAD + H(Kn * (RAD + H(KJI * AMUOSQIJI SLPTH 

TEMY = (RAO ♦ H(KI) * AMUO(JI SLPTH 

TEMA = TEMX + (H(U - H(K)( « (RA02 ♦ H(KI ♦ HID) SLPTH 

tEMA = SQRT(TEMA) - TEMY SLPTH 

00 180 L = 2,K SLPTH 

LI = L ~ 1 SLPTH 

TEM3 = TEMX + (H(L» - H(K)I * (RA02 ♦ H(K) ♦ HILM SLPTH 

TEMB = SQRT(TEMB) - TEMY SLPTH 

0EL5(L1, J,KK) = TEMA - TEMB SLPTH 

TEMA = TEMB SLPTH 

190 CONTINUE SLPTH 

190 CONTINUE SLPTH 

230 CONTINUE SLPTH 

00 203 K = 1,32 SLPTH 

DO 202 J = 1,10 SLPTH 

DO 201 L = 1,K SLPTH 

DELS(L,J,K) = DELS(L,J,K» ♦ RDH(L) SLPTH 

201 CONTINUE SLPTH 

202 CONTINUE ' ■ SLPTH 

203 CONTINUE SLPTH 

RETURN SLPTH 

END SLPTH 

SUBROUTINE SOLISY ( NCASE , A , A INV ,TEM , X , B , I P , NMX , I TR , RES I D , OELX ) SOLIS 

SOLIS 

MCASE = I : OBTAIN AN INVERSE OF MATRIX A IN LdCATIQN SOLIS 

REPRESENTED BY AINV... SOLIS 

SOLIS 

NCASE = 2 : SOLVE THE LINEAR SYSTEM OF EQUATIONS A t X = B WHERE SOLIS 
A IS AN NMX SY NMX SQUARE MATRIX AND, X AND B SOLlS 

ARE VECTORS WITH NMX ELEMENTS. SOLIS 

SOLIS 

ITR (+) : NUMBER OF ITERATIONS REQUIRED TO OBTAIN THE DESIRED SOLIS 

CONVERGENCE OF THE SOLUTION..* SOLIS 

ITR {-) ; absolute VALUE OF ITR GIVES THE NUMBER OF DIGITS SOLIS 

TO WHICH THE FIRST TWO SETS OF X AGREE. NEGATIVE VALUESSOLIS 
OF ITR ARE RETURNED ONLY WHEN THE INPUT MATRIX SOLIS 

IS TOO I LL-CONOITIONED TO AtlEMPT ANY CONVERGENCE.. SOLIS 

ITR = 0 : ITERATIONS DID NOT CONVERGE.... SOLIS 

SOLIS 

REAL ♦ A AdOO.lOO) ,AINV(10C,100),TEM(100,100),B(100),X( 100), SOLIS 

1 KESID( 1001 ,DELX( lOOl SOLIS 

INTEGER * A IPdOOJ SOLIS 

REAL 8 AULtBUL SOLIS 

20 FORMAT (/T10,'ALL ELEMENTS IN ROW NUMBER* , I 5 , T45 , * ARE ZEROS. PROGRSQLIS 

lAM TERMINATED.*/) SOLIS 


30 FORMAT (/T10,*ZER0 PIVOT FOR COLUMN NUMBER* , I 5 ,TA7 , * , PROGRAM TERMSOLIS 


19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
33 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 
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120 


125 

130 


IINATEO.*/) 

AO FORMAT {/T10,'A SOLUTION OF SYSTEM GIVES A ZERO VALUE 

IL components of vector X. PROGRAM TERMINATED.*/! 

DECOMPOSE A MATRIX (GAUSSIAN ELIMINATION WITH PIVOTING I 
IN L ♦ U FORM. CHAPTERS P £ 1 1 OF COMPUTER SOLUTION OF LIN 
ALGEBRAIC SYSTEMS BY G. FORSYTHE AND C.B. MOLER, 

PRFNTICE - HALL, 1967.. 

IW = 6 

00 130 I = 1 ,NMX 

x{ i I = 0.0 
iptn = I 
DO 120 J - 1,NMX 
TEMLI.J) = A(I,J» 
xm = AMAXl(Xm,AB'S(TEM(I,J) n 
CONTINUE 

IF ( X ( I) .NE. 0.0 ) GO TO 125 
write (I W, 20 I I 
CALL EXIT 

xm - 1.0/xm 

CONTTNUE 
NMXl = NMX - 1 
bn 180 K = 1,NMX1 
TEMA = 0.0 
DO 150 I = K,NMX 
IS = IP( I ) 

TEMB = TEM( IS,KI » X(ISI 
TEM3 = ABS(TEMB) 

IF ( TEMB .LE. TEMA I GO TO 150 
TEMA = TEMB 
lOX = I 
CONTTNUE 

IF ( TEMA .NE. 0.0) GO TO 155 
WRITE (IW,30) K 
CALL EXIT 
CONTINUE 

IF ( IDX .EQ. K) GO TO 160 
J = IP(K) 

IP(K) = IP(IDX) 

IP(IDX) = J 
CONTINUE 
KP = IP(K) 

TEMA = 1 .0/TEM(KP,K ) 

KPl = K + 1 
00 175 I = KPl, NMX 
IS = IP(I) 

TEMIIS.K) = TEMIlSfK) ♦TEMA 
00 170 J = KPl, NMX 

TEM(1S,J» = TEM(IS»J) - TEMdS.K) ♦ TEM(KP,J) 

CONTINUE 
CONTINUE 
CONTINUE 
IS = I P(NMX) 

IF ( TEMIIS,NMX) .NE. 0.0 ) GO TO 190 


150 


155 


160 


17C 

175 

180 
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WRITE nW,30J NMX 
CALL EXIT 
190 CONTINUE 

IF ( NCASE .EO. 1 ) GO TO 200 
ISOL = NMX 
GU TO 2^0 
200 CONTINUE 

PO 220 I = I, NMX 
8(11 = 0.0 
220 CONTINUE 

DO 1000 I SOL = I ,NMX 
IF ( ISOL .NE. I ) B(ISOL-l) = 0.0 
BdSOLI = 1.0 
2A0 CONTINUE 

CALL SOLVE ( TEM , X , B , IP , NMX ) 

IMPROVE THE iSOLUTION X BY FOLLOWING THE PROCEDURE OUTLINED 
IN CHAPTER 13 OF FORSYTHE AND MOLER.. 

THE QUANTITIES MAXITR, lOIGf AND TEMC ARE MACHINE DEPENDENT. 
TH;EIR values AS GIVEN BELOW ARE FOR SINGLE PRECISION WORK ON 
SYSTEMS 360 AND 370... 

MAXITR = 15 
10 IG = 7 
TEMC = l.OE-06 
TEM A - 0.0 
DO 250 I = 1,NMX 
TEMA = AMAX1(TEMA,ABS(X( mi 
250 CONTINUE 

IF ( TEMA .NE. 0.0) GO TO 260 
WRITE (IW,AO) 

CALL EXIT 
260 CONTINUE 

DO AOO ITR =1, MAXITR 
00 300 I - 1,NMX 
AUL = 8(1) 

DO 290 J = ItNMX 
SUL = X( J) 

AUL = AUL - A(I,J) =» SUL 
290 CONTINUE 

RESIO( I) = AUL 
300 CONTINUE 

CALL SOLVE ( TEM , 0 EL X , RES 1 D , IP , NMX ) 

TENS = 0.0 

DO 320 1 = 1,NMX 

TEMS = AMAXl ( TEMB.ABSI DELX( I ) ) ) 

X( I ) = X( I ) + DELX( 1) 

320 CONTINUE 

IF I ITR .NE. 1 ) GO TO 370 
II = -AL0G10(ABS( TEMB/TEMA) ) 
lOIG = MINOn I T IDIG) 

IF ( lOIG .LE. 3 ) GO TO 410 
370 CONTINUE 

IF ( TEMB .LE. TEMA^TEMC) GO TO 450 


SOLIS 80 
SOLIS 81 
SOLI 5 82 
SOLIS 83 
SOLIS 84 
SOLIS 85 
SOLIS 86 
SOLIS 87 
SOLIS 68 
SOLIS 89 
SOLIS 90 
SOLIS 91 
SOLIS 92 
SOLIS 93 
SOLIS 94 
SOLIS 95 ' 
SOLIS 96 
SOLIS 97 
SOLIS 98 
SOLIS 99 
SOLISlOO 
SOL IS 10 1 
S0HS102 
S0LIS103 
SOL IS 104 
SOLIS105 
SOLIS 106 
SOL IS 107 
SQLISlOe 
SOL IS 109 
SOL I SI 10 
SOLlSlll 
S0LIS112 
S0LIS113 
S0LIS114 
SOLI SI 15 
S0LIS116 
SOLI SI 17 
SOLI Si 18 
SOLI S119 
S0LIS120 
S0LIS121 
SOLIS122 
S0LIS123 
S0LISL24 
SQLIS125 
SOL IS 126 
S0LIS127 
S0LIS128 
S0LIS129 
SOLIS 130 
SOLI S131 
S0LIS132 
S0LIS133 
S0LIS134 


85 



ooo oooonooon 


^00 CONTINUE 
; GO TO A20 
^10 I TP = -I DIG 
RETURN 
420 ITP = 0 
RETURN 

450 CONTINUE 

IF (.NCAS6 .EQ. 2 ) RETURN 
DO 480. iJ = 1 ,NMX 
AIN,V(J,ISOL) = X(J) 

480 CONTINUE 

IF ( I SOL ,EQ. 1 ) JVD = ITR 

IF .i( ISOL .GT. I ) JVD = MAXO(JVO,ITR» 

1000 CONiTINUe 
ITR = JVD 
RETURN 
END 

SUBROUTINE SOLVE ( TEH, X , 3 f I P t NMX ) 

THIS SUBROUTINE IS CALLED BY THE SUBROUTINE SOLISY. L * U 
MATRIX IS IN THE LOCATION TEM.. 

SOLVE THE LINEAR SYSTEM OF EQUATIONS (A « X = 6 ) BY USING 
THE L ^ U DECOMPOSITION OF A MATRIX OBTAINED EARLIER.. 

COMPUTE U * X - (INVERSE OF L ) * B = X TEMPORARY.. 

REAL * 4 TEMdOO, 100), X( 100 ),B(i00> 

INTEGER 4 IP( 100) 

xm = Bi ip(i) ) 

DO 260 I = 2, NMX 
IS = iP( I ) 

IM = I - 1 ' 

XII) =* B( IS) 

DO 250 J = 1, IM 

X( I ) = X( I) - TEM( IS,J ) * X( J) 

250 CONTINUE 
260 CONT TNUE 

IS = IPINMX) 

X(NMX) = X(NMX)/TEM( IS ,NMX) 

COMPUTE X = (INVERSE OF U ) * X TEMPORARY.. 

00 200 1 = 2, NMX 
II = NMX +1-1 
IS = IPI I I) 

IPl = M ♦ 1 

DO 270 J = IPl, NMX 

xni) = Xdl) - TEM(IS,J) * X(J) 

270 CONTINUE 

X( I I ) = Xdl )/TEMdS,I I ) 

280 CONTINUE 
RETURN 
END 

SUBROUTINE SUBSTA ( OM EGR, COF AR , OMEGST , COFAS , OMEGTP, COFAT , 
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16 
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21 
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I MXNLYR,NTR,DTAUH,ATEN,FNYN,CAPLAH^CAPLX,CAPLV) 

SUBROUTINE FOR COMPUTING CAPITAL LAMDA SUB K OF TAU SUB L 
AND OTHER RELATED QUANTITIES,... 

REAL,’* A QMEGR(30C> ,C0FA9 ( 3 ) ,Qi*^EGST (300 I ,COFaS (300) f 

1 0MEGTP( 3 00 ) ,C0FAT( 300 5 ,DTAUH ( 300) , ATEN (301 t 10 ) ,FNYN( 300 ,10 ) , 

2 CAPLAV( 100, 300 ),CAPLX ( 100,300 ) ,CAPLY( 100,300, 11) 

00 150 L = 1,MXNI.YR 

00 110 I * 1,3 

CAPLAM(I,L> = OMEGR(L) * COFAP(I) ♦ OMEGST(L) » COFASd) > 

1 OMEGTPtL ) * COFATC I ) 
no CONTINUE 

DO 130 1 = A,NTR 

CAPLAM(,I,L) = OMEGST(L) ’f COFASd) ♦ OMEGTP(L) ♦ COFATd) 

130 CONTINUE 
150 CONTINUE 

DO 200 1 = 1,NTR 
TEMA = l.0/(2*I - 1) 

TEMB - 0,5 V TEMA 

DO 190 L = 1,MXNLYR 

LI = L ♦ 1 

CAPLX(I,L) = CAPLAMd,L) * TEMA DTAUH(L) - DTAUHIL) 

DO 170 N = 1,10 

CAPLY(I,L,N) = OTAUH(L) * (ATEN(L,N) * ATEN(Ll,Nd * 

I CAPLAMdtL) * FNYN(I,N) * TEMB 
170 CONTINUE 
190 CONTINUE 
200 CONTINUE 
RETURN 
END 

SUBROUTINE SUBSTB ( AV ECT , F MAT , GMAT , NTR , NTR2 ) 

SUBROUTINE FOR INI T I AL I Z I NG F SUB 1 MATRIX, AND A VECTORS... 

REAL * A AVECT( 100,11),FMAT{100,50),GMAT(50,50) 

00 150 J = ltd 

DO 130 J = 1,NTR 

AVECT( I , J ) = 0.0 
130 CONTINUE 
150 CONTINUE 

DO 200 J = 1,NTR2 

DO 170 I = 1,NTR2 

FMAT( I ,J ) = 0.0 

FMAT(NTR2 + I ,J) = -GMAT(I,J) 

170 CONTINUE 

200 continue 

DO 250 I = 1.NTR2 
FMATd ,1) =1.0 
250 CONTINUE 
RETURN 
END 

SUBROUTINE SUBSTC I A , P IMAT , FmAT , 0 INV , C APLY, AVECT , NTR , NTR2 ,L) 
SUBROUTINE FOR COMPUTING F SUB J MATRIXES, AND A SUB J VECTORS 
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SUBTC 

4 


REAL * 4 A(300),PIMAT(100,100)tFMAT(100,50J,01NV(l00,100)t 

SUBTC 

5 


1 CAPLY( 10 0,300, 11 ) , AVEcn 100,1 n 

SUBTC 

6 


DO ZOO J = 1,NTR2 

SUBTC 

7 


DO 150 I = 1,NTR 

SUBTC 

8 


A( n = 0.0 

SUBTC 

9 


DO 120 K = l,NTR 

SUBTC 

10 


A(I» = AU) * PIMAT(I,K» * FMAT(K,J) 

SUBTC 

11 

120 

CONTINUE 

SUBTC 

12 

1 50 

CONTINUE. 

SUBTC 

13 


00 180 I = 1,NTR 

SUBTC 

14 


FMATI I,J) = A( I ) 

SUBTC 

15 

180 

CONTINUE 

SUBTC 

16 

200 

CONTINUE 

SUBTC 

17 


DO 400 N = l,ll 

SUBTC 

18 


DO 360 I = 1,NTR 

SUBTC 

19 


All) = 0,0 

SUBTC 

20 


DO 350 J = 1,NTR 

SUBTC 

21 


All) = All) + DINV(I,J) * CAPLYIJ,L,N) ♦ 

SUBTC 

22 


1 PIMATl I, J) ♦ AVECTl J,N) 

SUBTC 

23 

350 

CONTINUE 

SUBTC 

24 

360 

CONTINUE 

SUBTC 

25 


DO 370 I = 1,NTR 

SUBTC 

26 


AVECTl I, N) = A1 n 

SUBTC 

27 

370 

CONTINUE 

SUBTC 

28 

400 

CONTINUE 

SUBTC 

29 


RETURN 

SUBTC 

30 


END 

SUBTC 

31 


SUBROUTINE SUBSTD ( C I NV , F^AT , NTR2 ) 

SUBTO 

1 


PEAL * 4 CINVllOO.lOO) ,FMATU00,50) 

SUBTO 

2 


DO 200 J = 1,NTR2 

SUBTD 

3 


DO 150 I = 1,NTR2 

SUBTO 

4 


CINVII , J) = FMATI I, J) 

SUBTD 

5 

150 

CONTINUE 

SUBTD 

6 

200 

CONTINUE 

SUBTO 

7 


RETURN 

SUBTO 

3 


END 

SUBTD 

9 


SUBROUTINE SUBSTE 1 TM AT , C IMAT , FMAT , UMAT, NTR2 ) 

SUBTE 

1 



SUBTE 

2 


SUBROUTINE FOR COMPUTING THE U AND T MATRIXES.... 

SUBTE 

3 



SUBTE 

4 


REAL 4 TMAT150, 50) ,CIMAT( 109,100) , FMATI 100,50) ,UMAT150, 50) 

SUBTE 

5 


DO 200 1 = 1,NTR2 

SUBTE 

6 


11 = NTR2 * I 

SUBTE 

7 


DO 150 J = l,NTR2 

SUBTE 

8 


TMATl I , J) = ClMATl I , J) 

SUBTE 

9 


TEMA = 0.0 

SUBTE 

10 


DO 130 K = 1,NTR2 

SUBTE 

11 


TEMA = TEMA ♦ FMATI II, K) ♦ CIMAT1K,J) 

SUBTE 

12 

130 

CONTINUE 

SUBTE 

13 


UMATl I ,J) = TEMA 

SUBTE 

14 

150 

CONTINUE 

SUBTE 

15 

200 

CONTINUE 

SUBTE 

16 


RETURN 

SUBTE 

17 


END 

SUBTE 

18 
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SUBROUTINE SUBSTF ( FMA T , UMAT , NTR2 ) 

SURPOUTINE FOR IMTIALIZING F SUB J MATRIX AFTER PERFORMING 
A STABILIZING TRANSFORMATION 

REAL 't' ^ FMAT(100,50I, UMAT( 50, 50) 

no 200 J = 1,NTR2 

00 150 I l,NTR2 

FMAT(I,J) = 0.0 

FMAT(NTR2*l ,J) = UMAT(I,J) 

150 CONTINUE 
200 CONTINUE 

00 250 1 = l,NTR2 
FMATd.n = 1.0 
250 CONTINUE 
RETURN 
END 

SUBROUTINE SU0STG UVECT , AV ECT ,IJMAT, UV EC T , NTR , NTR 2, NTR2L ) 

SUBROUTINE FOR SETTING UP U AND T VECTORS AFTE‘,< 
performing a STABILIZING TRANSFORMATION.... 

REAL 4 TVECTI50 ,11 ), AVECT I 100,11) ,UMAT( 50,50) ,UVECT(50, 11) 
DO 300 N = 1 , 11 
DO 150 I = l,NTR2 
tvectii ,N ) = AVECTI I ,N ) 

TEMA = -*AVECT(NTR2«-I ,N) 

DO 130 J = 1,NTR2 

TEMA = TEMA + UMAT(I,J) * AVECTUtN) 

130 CONTINUE 

UVFCTI I,N) = TEMA 

150 CONTINUE ■ 

DO 230 I = 1,NTR2 
AVECTI I,N ) = 0.0 
230 CONTINUE 

DO 250 I = NTR21,NTR 

AVECTI 1,N) = -UVeCTI I-NTR2,N) 

250 CONTINUE 
300 CONTINUE 
RETURN 
END 

SUBROUTINE SUBSTH I D IN V , UMAT ,GMAT , NTR2 ) 

REAL - A DINVI 100,1 00) ,UMAT150,50) ,GMAT150,50) 

00 200 J = 1 ,NTR2 
DO 150 1 = 1,NTR2 

OINVIUJ) = U.MATII,J) - GMATll,J) 

1 50 CONTINUE 
200 CONTINUE 

return 

END 

SUBROUTINE SUBSTI I N , V ECL 2 , GHAT , NTR2 J 
REAL * A VECL2I 100, 11) ,GMAT 150,50) 

DO 200 I = 1,NTR2 
TEMA =0.0 
DO 150 J = l,NTR2 
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TfcMA = TEMA ♦ &MATII,J» * VECL2(J,NI 
150 CONTINUE 

VcCLZtNTRZ^I fNI = TEMA 
?00 CONTINUE 
RETURN 
END 

SUBROUTINE SUBS7J ( I SW , Kl , NTR2 , VECL I , VECL2 , TVECT , AVECT , UVECT , 

1 TMAT,UMAT,GMAT I 

SUBROUTINE FOR COMPUTING L SUB K VECTORS... 

PEAL =>= 4 VECLl ( 100, 11) ,VECL2( 100, in,TVECT( 50, 11) ,AVECT( 100,11 i 
1 UVECT (50, 11) ,TMAT( 50,50) ,UMAT(50,50) ,GMAT{ 50,50) 

INTEGER » 4 ISWdU 
00 700 N = T,ll 

IF ( ISW(N) .NE. 0 ) GO TO 700 
00 630 I = 1 ,NTR2 
TEMA = 0.0 
DO 620 J = 1,NTR2 

TEMA = TEMA + TMAT( I,J ) * (VECL2(J,N) - TVECT(J,N)) 

620 CONTINUE 

VECLl ( I ,N ) = TEMA 
AVECT(I,N) = TEMA 
630 CONTINUE 

IF ( Kl :. EO. 0 ) GO TO 665 
00 650 I = 1,NTR2 
TEMA ^ -UVECT(ItN) 

00 640 J = 1,NTR2 

TEMA = TEMA UMAT(I,J) * VECLl(J,N) 

640 CONTINUE 

AVECT(NTR2+I ,N) = TEMA 
650 CONTINUE 
GO TO 700 
665 CONTINUE 

DO 680 1 = 1,NTR2 
TEMA = 0.0 
00 670 J = l,NTR2 

TEMA = TEMA - GMATII,J) * VECL1(J,N) 

670 CONTINUE 

AVECT{NTR2+1 ,N) = TEMA 
690 CONTINUE 

700 continue 
RETURN 
END 

SUBROUTINE SUBS TK I AMOMT , AVEC T^ NTR , NTR2 ) 

SUBROUTINE FOP RE-ARRANGING LEGENDRE MOMENTS OF THE 
INTENSITY COMPONENT..... 

REAL =f= 4 AMOMT( 100, 11) ,AvECT( 100,11) 

00 200 N = 1,11 
DO 140 I = l,NTR2 
AM0MT(2^I-1,N) = AVECTII,N) 

140 CONTINUE - • 

NTR21 = NTR2 ♦ I 
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00 leO I = NTR21.NTR SUBTK 12 

AMOMK 2*1 -NTR,N» = AVBCT(I,N» SUBTK 13 

130 CONTINUE SUBTK 

2 JO CONTINUE SUBTK 15 

RETURN SUBTK \b 

ENO SUBTK 17 

SUBROUTINE SUBSTL ( B ,D I NV ,C APL Y , P I MAT , AVECT , NTR . L U SUBTL I 

REAL * 4 B(3OO>fCINy(lOO,lOO),CAPLY(lOO,30O,UlfPIMAT(lO0,l00), SUBTL 2 

I AVECTfl'dO.lU SUBTL 3 

DO 780 N = 1,11 SUBTL 4 

00 770 I = 1,NTR SUBTL 5 

B(I) = 0.0 SUBTL 6 

DO 760 J = l,NTR SUBTL 7 

am - Bin ♦ dinv(i,j) * caplyi j, li,ni pimatii.ji ♦ avecti j,nj subtl b 

760 CONTINUE SUBTL 9 

770 CONTINUE SUBTL 10 

DO 775 I = 1,NTR subtl U 

AVECTI I ,N) = am SUBTL 12 

775 CONTINUE SUBTL 13 

780 CONTINUE SUBTL 14 

RETURN SUBTL 15 

END SUBTL 16 

SUBROUTINE SU0STM(CAPLAM,BT£N, AM0MT,BMQMT,FNYP, DTAUH,EIN,NTR,L,LI)SUBTM 1' 

SUBTM 2 

SUBROUTINE FOR COMPUTING MULTIPLE-SCATTERING CONTRIBUTION SUBTM 3 

TO THE SCATTERED RADIATION SUBTM 4 

SUBTM 5 

REAL 4 CAPLAM(100,300) , BTEN( 301, 13) ,AMQMT( 100, lU ,BMQMT( 100, 111 tSUBTM 6 

I FMYP{300,ie) ,DTAUH(3G0) ,ErM(l8,ll) SUBTM 7 

TEM3 = 0.5 * DTAUHILl) SUBTM 8 

DU 798 N = 1,11 SUBTM 9 

DO 792 J = 1,18 SUBTM 10 

TEMA = 0.0 SUBTM 11 

DO 785 I = l,NTR V SUBTM 12 

TEMA = TEMa + CAPLAM(I,Ll) * (BTEN(Ll,J) * AMOMT(I,N) + SUBTM 13 

1 BTENIL,J) * BMCMT(I,N)) * FNYP(1,J) * TEMB SUBTM 14 

7s5 CONTINUE SUBTM 15 

EIN'(J.N) = EIN(J,N) + TEMA SUBTM 16 

792 CONTINUE SUBTM 17 

DO 795 I = 1,NTR SUBTM 18 

Av,o,vit ( I,N) = BMCMT{I,N) SUBTM 19 

795 CONTINUE SUBTM 20 

798 CONTINUE SUBTM 21 

RETURN SUBTM 22 

END SUBTM 23 
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SITB8 

PROGRAM FOP COMPUTING TH£ 0>TH FOURIER COMPONENT OF THE SITB8 
INTENSITY OF THE SCATTERED RADIATION EMERGING AT THE TOP SITBB 
OF A NtJNHOPJGENEOUS ATMOSPHEP IC MODEL WITH ARBITRARY VERTICAL SITBB 
OISTP IBUT IONS OF OZONF AND STRATOSPHERIC AS WELL AS TROPOSPHERIC SITBB 


AEROSOLS, AND RESTING ON A LAMBERT GROUND 

THIS PARTICULAR PROGRAM IS BASED ON THE USE OF THE SPHERICAL 
HARMONICS METHCO IN CONJUNCTION WITH PERFORMING OF THE 
stabilizing TR ANSPOPMATICNS at anywhere FROM TWO TO 
ONE HUNDRED AND ONE CONDITIONING POINTS.... 

IN THIS PROGRAM, WE FOLLOW CHANDRASEKHAR’S CONVENTION ,I.E., 
DOWNWARD OIRECTilON IS REPRESENTED BY -MU 

DATA XBLNK /• ’/ 

REAL » 4 GTH(32),PkTH(32»,0ZnTH(32),STDUST(32),TP0UST(32) 

REAL * 8 DATE, HOUR 


SITBB 
SITBB 
SITBB 
.SITBB 
SITBB 10 
SITBB ll 
SITBB 12 
SITBB 13 
SITBB 14 
SITBB 15 
SITBB 16 
SITBB 17 
SITBB 18 


REAL *4 THETOI 10 ) , AMUni 10) ,A{ 300> ,B(300) ,C( 300) ,0(300) ,TAU(30l) , SITBB 19 
1 TIT9( 14) ,CrjFAS(3a0),C0FAT(300 ),0TAU(30D) ,THETA( 18) ,AMU( 13) SITBB 20 

REAL *= A ALUGO) , AP ( 100) ,GMAT( 50,50) , ATENOOl , 10) ,DELS(32,10, 32) SITBB 21 

REAL * 4 U.MAr(50,50),TMAT( 50,50),TVECTl50,ll) ,UVECT(50,11) SITBB 22 

FMATUoO ,50) , AVECTI 100, 11 ) ,BTEN(30l, 13) SITBB 23 

PIMAtl 100, 100) , FEMI IOC, 100) ,DINV( 100, 100) SITBB 24 

CiNVdOO, 100) ,CIMAT( 100,100) SITBB 25 

VECLK 100,11) ,VECL2tl00, 11) SITBB 26 

FNYPOOO, 18), FNYNl 300,10) ,EIN( 13,11) ,CQFAR(3) SITBB 27 


REAL * 
REAL * 
REAL * 
REAL 
REAL * 
REAL * 


CMEGR( 300) ,OMEGST( 300 ) , OHEGTP ( 300 ) , 0 T AUH ( 300) ,A JVD( 501 ) , SITBB 28 


1 CAPLXI 100,300) ,BREKA( 100,50) ,BREKB(100, 50) SITBB 29 

REAL 4 BREKCC 100,50) ,BREKD(100, 50), FXS(301,I1),FXD(301, 11), SITBB 30 

I FXUOOdlD.FXNOOljlD.CAPLYIlOO.BOO, 11) SITBB 31 

REAL * 4 AMOMT( lUO, 11) ,bMOMTUOO, 11 ) ,EIC(ia,I0,6) ,TIC(18 ,10,6) , SITBB 32 

1 SSRPRR (6 ) ,CAPLAM(100, 300) • SITBB 33 

EQUIVALENCE ( 8REK A ( 1 , 1 ) , P I M AT ( 1 , 1 ) ) , ( BREKB { 1 , 1 ) , P IMAT ( 1 , 5 1 ) ) SITBB 34 

EQUIVALENCE ( BREKC ( 1 , 1 ) , D I N V 1 1 , 1 ) ) , I BREKO ( 1 , 1 ) , D I NV ( 1 , 51 ) ) SITBB 35 

DATA COFAR / 1 .0 , 0 .0 , 0 . 5/ SITBB 36 

INTEGER 4 I P ( 1 CO ) , L I MU ( 100 ) , I SW ( 1 1 ) , I C PCS UO 1 ) , ICHCK ( 300 ) SITBB 37 

integer V 4 INEW(33),IPITE(300) SITBB 38 

4 FORMAT (//TIO, • PROGRAM TERMINATED AS THE INPUT MODEL CONTAINS SITBB 39 

1 MOPE THAN 32 BASIC LAYERS. NBLYR = ' , I5//T10, • OR NMOD IS NOT SET. SITBB 40 

2 NMOD = • , 15// ) SITBB 41 

5 FORMAT ( /TIO, » PROGRAM TERMINATED AS THE NUMBER OF CONDITIONING POISITBB 42 

INTS IS OUTSIDE THE RANGE OF THE DIMENSION STATEMENTS. '//T20 , SITBB 43 

2 • INPUT parameter NUMCON = ' , I 5/ ) SITBB 44 

6 FORMAT (//TIO, 'PROGRAM TEPMINATED AS THE AEROSOL MODEL REQUIRES SITBB 45 

1 more than 300 LEGENDRE COEFFICIENTS. NMX = *,I5//) SITBB 46 

10 FORMAT (IHI) SITBB 47 

12 FORMAT (2110) SITBB 48 

15 FORMAT ( I5,0P2F10.2,0PF10.5,1P2E11,2) SITBB 49 

17 format (ZFIO.5) SITBB 50 

19 FORMAT (I5,3F10.4) SITBB 51 

21 FORMAT (0P3F10.5, 15, 1P2E15.5,3A4) SITBB 52 

23 FORMAT ( 1P5E13.5, 15 ) SITBB 53 

24 FORMAT ( /./TIO, • PROGRAM TERMINATED AS WAVELENGTHS ON THE MA I N CARD, S I TBB 54 

I AND ON The COEFF CARDS ARE UNEQUAL .'/ /T 10 ALDA AND BLDA , SITBB 55 
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2 2F10.5//) SITHB 

25 FilPMAT (//no, •PSOGSAM TEPMINATED AS THE L6GEN0RE COEFFICIENT CARDSITBB 

IS APE NUT IN ORQEP FOP THE STRATOSPHERIC AEROSOL CASE™ LL AND LM ASITBB 
2RF RESPECTIVELY = •,2I5//» SITB8 

26 FORMAT (/ /T 10 PROGRAM TERMINATED AS THE LEGENDRE COEFFICIENT CARDSITBB 


IS ARE NOT IN ORDER FOR THE TROPOSPHERIC AEROSOL CASE. 
2 ARE RESPECTIVELY = *,215//) 


LL AND LM 


S ITBB 
SITB8 


28 Format ( IH1/T6, 'layer ' ,T22, • GECMETRIC ,T43, • pressure* ,T66 ,* ozone* , sit bb 


1 T 78,* STRATOSPHERIC* , T 99 , * TR CPOSPHER I C • / T5 , * NUMBER* , 

2 T22, * THICKNESS*,T^2, * THICKNESS *,T 65, 'AMOUNT* , T79, 'DUST CONTENT* 

3 T99,*DUST CONTENT'//) 

30 FORMAT ( I 10 , 0P2 F20- 2 , OPF 20 . 5 , I P2E 20. 2 ) 

32 FORMAT ( / / // T30 , • aTHOS PHER I C MODEL NUMBER : *,I5///T10, 

I 'SURFACE PRESSURE I MB ) ; • , F 1 0 . 2 , T55 , * TOTAL OZONE AMOUNT 
• ,F10.3////TA0, 'D U S T OAT A* ///T9, * TYPE OF', 


2 

3 T24,'SIZE DISTRIBUTION* ,T48, 'PART OF REFRACTIVE INDEX* 


4 T 86, 'TOTAL* /T8, * AEROSOLS' , T30 , • FUNCTI ON* ,T52, 'REAL* , 

5 T62, * IMAGINARY* ,Tff 5, • AMOUNT* / ) 

34 format I/T4, 'TPOPCSPHEPIC* ,9X,3A4,4X,0P2F15.3, IP1E20.2) 

36 format ( /74, • ST RATOSPHERIC* r 8X,3A*t,4X, 0P2F15. 3, IP1E20.2) 
38 FORMAT ( IHI/TIO, * LEGENDRE COEFFICIENTS REPRESENTING PHASE 


SITBS 
SITBB 
SITBB 
SITBB 
SITBB 
( ATM-CM)SITBB 
SITBB 
SITBS 
SITBB 
SITBB 
SITBB 
SITBB 
FUNCTIONSITBB 


FOP 

T13, 


THE STRATOSPHERIC 
* L* ,T25, *L+l*rT37 


aerosol at wavelength OF* ,F10.5//T4, *L‘ » 


L4-2* ,T49, 'L4-3* ,T61, *L*-A* ,T73, *1+5* , 


PHASE 

TROPGSPHEP IC AEROSOL AT, WAVELENGTH OF ' , F 1 0 , 5// T4 , * L • , 
, T25, *L + 1*,T37, *L + 2* ,TA9, *L + 3* ,T6l, *L + 4* ,T73, *L*5* , 


THE 
RADIATION 


ENTIRE 

OF 


3 T8 5, *L + 6» ,T97, *L*7« ,T 109 , * L + 8 • , T 12 I , • L+9 • / ) 

40 FORMAT ( I 5 , IP 10E12.«) 

42 FORMAT ( IHl/ T 1 0 , • LEGENDR E COEFFICIENTS REPRESENTING 

1 FOR THE 

2 T13,*L* 

3 T85,'L*-6',T97,*L*-7',T109, • L>8 ' , T 1 2 I , 'L+9'/) 

44 format ( lHi/T20, 'VARIOUS NORMAL OPTICAL THICKNESSES OF 
1 A7MC5 RH6PIC MODEL : * , I 5//T 20 , * FOR THE 

WAVELENGTH : * ,FIG.5//// 

T30, 'RAYLEIGH SCATTERING : *,F10.5// 

T30,* OZONE ABSORPTION : *,F10.5// 

T30, * STRATOSPHERIC AEROSOL SCATTERING : *,F10.5// 

T30, * STRATOSPHERIC AEROSOL ABSORPTION : *,F10.5// 

T30, 'TROPOSPHERIC AEROSOL SCATTERING : *,F10.5// 

T30, 'TROPQSPHER IC AEROSOL ABSORPTION : *,F10.5// 

T30, 'TOTAL : ',F10.5I 

45 format (//TIO, * program TERMINATED AS TOTAL NORMAL OPTICAL 
IS OF THE MODEL IS GREATER THAN 5.0. IT IS = *»F10.5//) 

47 FORMAT (/ /T 10 PROGRAM TERMINATED AS THE MODEL HAS TO BE DIVIDED 
1 INTO MORE THAN 3C0 LAYERS.*//) 

49 FORMAT (/TIO, 'THIS SET OF COMPUTATIONS IS DONE WITH* , llO ,T65, 

I 'NUMBER OF TERMS.'//) 

51 FORMAT (/TIO, • CONDI TIGNING PC I NT ' , I 5 ,T 40 , • I S AT THE OPTICAL 
1 ,F10.5,T80,* GIVEN BY THE LEVEL NUMBER*, 15) 

53 FORMAT (/TIO, 'THE TOP HALF OF THE F SUB J MATRLX 


2 

3 

4 

5 

6 

7 

8 
9 


SITBB 
SITBB 
SITBB 
SITBB 
FUNCTIQNSIT8B 
SITBB 
SITBB 

sitbb 

SITBB 
SITBB 
SITBB 
SITBB 
SITBB 
SITBB 
SITBB 
SITBB 
SITBB 
SITBB 
THICKNESSITBB 

sitbb 


56 

57 

58 

59 

60 
6 I 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 
35 
66 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


1 I 5, T70, • iterations FOR THE 
55 FORMAT (/ TlO, ' L INEAR SYSTEM 
1 T70, ' AFTER' , I 5 , T85 , • NUMB ER 
57 FORMAT (/ TIO, ' L INEAR SYSTEM 
I T 70, 'AFTER* f I 5 i T 85 , • NUMBER 
61 FORMAT ( ///T15, 'MC06L 
I T85,'THE'iA SUB ZERO i 


INVERTED AFTER* 

CONOIT lONiNG PO INT NUMB ER ‘ , l5) 

SOLVED FOR THETA SUB ZERO = *,F10.2, 
OF ITERATIONS.') 

SOLVED FOR THE ISOTROPIC CASE', 

OF ITERATIONS.') 

', I 5 ,T40, ' WAVELENGTH : ',Fl0.4, 

• ,F 10.2/) 


SITBB 
SITBB 

sitbb 

SI T8B100 
DEPTH'SITBBIOI 
SITBB102 
SI TB8103 
sitbb 104 
SITB3105 
SITBB106 
S ITBB107 
S1T8B108 
5IT8B109 
SlTBBllO 
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n o r> o r> o o o o n o o 


63 FORMAT ( ///Tl 5» 'MODBL ; 

I T85, • ISOTROPIC GROUND 
6i FORMAT ( / T2 , • LAY . S T 1 3 


• » 15, T-!«C, • WAVELENGTH : * ,F10.4, 
ILLUMINATION FROM BELOW. •/! 

•DIRECT* ,T2T, 'DIFFUSE* ,TAI, 'DIFFUSE* , 


I5»T75, 'WAVELENGTH 


1 T5'6,, 'NET • ,T63, • L AY , • , T77 , ' D I R EC T ' , T90 , • 01 FFUSE* , T1 0<r , • D I F FUSE • , 

2 Tl *NFT * /T2, *NUM. • , T13, * FLUX* ,T27, • DOWNWARD *» T4 1 ,* UPWARD* , 

3 T56, 'FLUX* ,T68, * NUM.* ,T77,*FLUX* , T90, * DOWNWARD* , T 104, 'UPWARD*', 

4 TU9', 'FLUX* / ) 

67 FORMAT (I 5 , 1 P4E 14.4 , 4X , I 5 , 1 P4E 14. 4 1 
69 FORMAT ( 1 5 , IP4E 14 .A) 

71 FORMAT 1//TID,*S8AR = *,F10.5) 

73 FORMAT I IH1/T25 , ' MODEL NUMBER : 

I FIO.4//) 

75 FORMAT (T16,*0-TH FOURIER COMPONENT OF INTENSITY OF THE RADIATION 

1 EMERGENT AT THE TOP I R = 0.0 ) FOR THETA SUB ZERO = *//T2, 

2 *THETA*,T10,’AMU’,1CF11.2//) 

77 FORMAT ( OPFS , 1 , OP F7 .3 , IP lOE 1 I . 3 ) 

79 FORMAT ( / //T22 , ' CONTRI BUT I ON ( MULTIPLIED BY 1 l-R*S8AR ) /R » DUE TO 
1 ISOTROPIC ILLUMINATION FROM BELOW.*//) 

95 format (/T5,‘ MODEL : *, I 5 , T 30 ,* WAVELENGTH : *,F10.4, 

I //T5, 'VIRTUAL AND REAL TIME IN SECS. = *,2F10.2/) 
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FILE 

FILE 

FILE 

FILE 

FILE 

file 


11 

12 

13 

14 

15 

16 


MATRIX.. 
MATRIX.. 
VECTOR .. 
VECTOR. , 
INTEGRALS 
OUTPUT OF 


REQUIRED FOR THE GROUND REFLECTION PART. 


SITBBlll 
SITBB112 
SITB3U3 
SITBBT14 
SI TBHl 15 
SIT80116 
SITBB117 
SITBBl 18 
SITBfU19 
S1TBB120 
SITBBUI 
SITBB122 
SITBB123 
SITBB124 
SIT8B125 
SITBB126 
SIT0B127 
SITB3128 
SITBB129 
SITB8130 
SITBB131 
SITBB132 
SITBB133 
SITBBl 34 
SITBB135 
SITBB136 


I SUB ZERO AT THE TOP FOR 18 MUS AND 6 LAMOA SSI TB8 137 




AND 

OTHER RELATED INFORMATION FOR A LFUTURE USE... 

SITBB138 

file 

17 : 

PI , 

AND DINV MATRIXES FOR ALL BASIC LAYERS... 

SITb8l39 





SITBB140 

DEFINE 

file 

ll 

d01,10COO,L,IPA) 

SIT8B141 

DEFINE 

file 

12 

(lOl, 10 000 ,LtIPB) 

SITBB142 

DEFINE 

FILE 

13 

(101 ,2200, L, IPC) 

SITB3143 

DEFINE 

FILE 

14 

(101 ,2200, L, IPO) 

SITBB144 

DEFINE 

FILE 

15 

(101, 2004, L,IPE) 

SITBB145 

DEFINE 

FILE 

16 

(200, 8720, L, IPF) 

SITBB 146 

DEFINE 

FILE 

17 

( 128, 20000, L, IPG) 

SITB3L47 

IR = 1 




SI TBB148 

IW = 8 




SITBB 149 


READ IN AND PRINTOUT ATMOSPHERIC PARAMETERS... 


NMQD ,GT. 0 ) GO TO 101 


102 


READ UR, 12) NMCD.NBLYR 

IF ( NBLYR .LE.; 32 .AND. 

WRITE (IW,i4MNBLYP,NM0D , 

GO TO lOCO 

READ ( IR,15) (II,GTH(I ) , PRTHI I ) ,0Z0TH( 1) , STDUST ( I) , TPDUSTI I ) 
1 NBLYR) 

READ (IR, 17) TEMA,TEM8 
DO 102 I = NBLYR 

TEMA ♦ STDUSTd I 
= TEMB ♦ TPDUSTI 1 ) 


1=1 


STDUSTd ) 
TPOUSTd ) 
CONTINUE 
TITB(l) = 
TITBI2) = 


0.0 

0.0 


S1TBB150 
SIT8BL51 
SITB8152 
SIT 88153 
SITBB154 
SIT88155 
SITBB156 
SITbB 157 
SITB8158 
SITBB159 
SITB8160 
SITB316L 
SITBB162 
SITB8163 
SITBi3164 
SITB3165 
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o o r> o o o o 






/ 


TITQI3) = 0.0 

TITR(4> = 0.0 

nn 104 I = IfNBLYR 

TIT0( n = T ITH( I ) ♦ PRTH( I ) 

TITB(2» = TIT3(?) ♦ OZOTHd ) 

tlTB(^) = TITB(^) + STDUST(I) 

TITB(4» = TITB(^) ♦ TPOUSrm 

104 CONTINUE 

WRITE iIW,28» 

write ( I W, 30) I I »GTH(I » , PRTH ( I) ,OZOTH( I),STDUSTM 1 ,TPbUST( I ) t 

11=1 ,nblyr) 

COMPUTE MODEL - INDEPENDENT QUANTITIES BY CALLING 
VAjRtOUS SUBROUTINES,... 

CALL LEGFUN ( THE TO , AMUU » FNYN , THETA , AMU , FNVPI 
CALL dCMAT {GMAT,AL,AR) 

CALL SLPTH (AMUCtOELS) 

READ IN AND PRINT OUT OPTICAL PARAMETERS FOR THE INPUT LAMJA... 

108 CONTINUE 

CALL TIMDAT ( DATE , HOUR, ITVE , ITRB) 

READ ( IR,19fEND=10;C0) ILOA, ALDA,TAUBSR ,OZABS 
IF ( TITB(3» .GT, b.O ) GO TO 110 
TITBI5) = 1.0 
TITBI6) - 0.0 ' 

TITBI9) = XBLNK 
TUB (10) = XBLNK 
TTTS(ll) = XBLNK 
NMXST = 0 
BSC A ST = 0.0 

BABSST = 0.^ ' 

.00 109 I ='1,300 
COFAS( I ) = 0.0 

109 CONTINUE 
Gn TO 118 

110 CONTINUE 

READ ( IR,2l) BLDA,TITB(5) , T I TB ( 6 ) , NMXST , 8SCAST , BABSST ,T I T B ( 9 ) , 

1. TUB (10), TUB (11) 

IF ( NMXST ,LE. 300 ) GO TO 111 
WRITE (IW,6) NMXST 
GO TO 1000 

111 IF ( ABS(ALDA - BLOA) .LE. 0.001 ) GO TO 112 
WRITE (1W,24) ALDA.BLDA 

GO TO 1000 

112 LL =1 

QQ 115 L = 1, NMXST, 5 

READ ( IR,23) COFAS ( L ) , COFAS ( L + 1 ) t COF AS I L+2 ) ,C0FAS(L+3), 

I C0FAS(L + 4) ,LM 
IF ( LL .EO. LM ) GO TO 113 
WR ITE ( IW,251 LL,LM 
GO TO 1000 

113 LL = LL ♦ 5 
115 CONTINUE 


SITB8166 

SITBB167 

SITB8168 

SUBBlpy 

SITBB170 

SITBB171 

SITBB172 

SITBB173 

.SITB8174 

SITBB175 

SITBB176 

SUBB177 

SITB3178 

SIT33179 

SUBB180 

SItBBISl 

S1TB8U2 

SUBiU83 

SIT68184 

SITBB185 

SITBB186 

SITaai87 

SITBB188 

SITBB189 

SITBB190 

SITB8191 

SIT8B192 

SIT63193 

SIT88194 

SITB8195 

SITB3196 

SUB3197 

SUB3198 

SITB3199 

SUBB200 

SITBB201 

SU8B202 

SITBB203 

SITB8204 

SU33205 

SITBB206 

SUB3207 

SITB8208 

SITB3209 

SUBB210 

SITB3211 

SITBB212 

SUBB213 

SITBB214 

SITB3215 

SITBB216 

SITBB217 

S1TBB218 

SITBB219 

SIT68220 
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noon 


lie 

IF ( TITHI4) .GT. 0.0 ) GO TO 120 

SIT8B221 


TITB(7I =1.0 

SITBB222 


TITB<8) = 0.0 

SITBB223 


TIT8(12) = X3LNK 

SITBB224 


TITB( 1 3» = XBLNK 

.. SIT88225 


TITB(14) = XBLNK 

SITB8226 


KMX TP = 0 

SITB3227 


BSCATP = 0.0 

SIT8B228 


BA0STP = 0.0 

SIT68229 


DO 119 i = 1,300 

SITBd230 


COFATI I » = 0.0 

SIT8B231 

119 

CONTINUE 

SITBB232 


60 TO 130 

SITB8233 

120 

CONTINUE 

SIT8B234 


READ ( IR,21) 3LDA,TITBI7) ,TITB(8) ,NMXTP,BSCATP,BA0STP,TITB(12) 

, SITHB235 


1 TITB{ 13) ,TIT3( 14) 

SITBB236 


IF f NMXTP .LE. 300 ) GO TO 121 

SITBB237 


WR ITE hw ,6) NMXTP 

SITBB238 


GO TO 1000 

SIT68239 

121 

IF ( ABSIALDA - BLDA) .LE. 0.001 ) GO TO 122 

SITB8240 


WRITE (IW,24) ALDA,BLDA 

SITBB241 


GO TO 1000 

SITBB242 

122 

LL = 1 

SITB3243 


DO 130 L = 1 , NMXTP, 5 

SIT8fl244 


READ HR, 23) COFAT ( L ) ,COFAT ( L+ 1 ) ,COFAT ( L^-2 ), COFAT ( L+3) , 

SITBB245 


1 C0FATa*4),LM 

SITBB246 


IF ( LL .EQ. LM > GO TO 125 

SITBB247 


WRITE (IW,26) LL.LM 

SITBB248 


GO TO 1000 

SITB8249 

125 

LL = LL ♦ 5 

SITBB250 

130 

CONTINUE 

SIT8B251 


IF < TITB(3) .LE. C.Q ) GO TO 135 

SIT88252 


WRITE (IW,3S) ALDA 

SITB8253 


DO 132 L = l,NMXSr,10 

SITBB254 


L 1 = L - 1 

SITBd255 


WRITE nW,40) Ll.COFAS ( L ) ,GOFA S ( L + 1 ) , COFA S ( L+ 2) , COFAS( L + 3 ) , 

SITBB256 


1 C0FAS(L+4) ,C0FAS{L>5) ,C0FAS(L+6) ,C0FA5(L+7I , COF AS { L *8) , COF AS ( 

L+9)SlTdB257 

132 

CONTINUE 

SIT6B258 

135 

IF ( TITB(4) .LE. 0.0 ) GO TO 140 

SITBB259 


WOITE ( IW ,42) ALDA 

SITBB 260 


00 138 L = 1, NMXTP, 10 

SITBB261 


LI = L - 1 

SITBB262 


WRITE IIW,40) L1,C0FAT(I , COFAT (L+1 ), CCFAT { L + 2 ), COFAT ( L 4-3 ) , 

SITB8263 


1 C0FAT{L+4) ,C0FATIL+5) JFAT ( L +6 ) , COFAT ( L+7 ) , COFA T ( L+8) , COF AT ( L+9 ) S I TBB264 

138 

CONTINUE 

SITBB265 

140 

CONTINUE 

SITBB266 

SITBB267 


PRINT OUT VARIOUS NORMAL OPTICAL THICKNESSES OF THE 

SITBB268 


ENTIRE ATMOSPHERIC MODEL... 

SITBB269 

SITB8270 


TAUBSR = (TITBin/lOOO.O) TAUBSR 

SITBB271 


TEMA = TITBI2) * OZABS 

SITBB272 


TEM8 = TITB(3) ♦ 8SCAST 

SI TB8273 


TEMC = TIT3T3) * BA8SST 

SIT88274 


TEMO = TITB(4) BSCATP 

SITB0275 
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onooooooo 


i 

TEME = TITB(4) * BABSTP 

TAUTOT = TAU8SR ♦ TFPA + TEMB + TEMC + TEMO TEME 
-HR'ITE { IW,A4) NMUO, ALDA, TAUBSR.TEMA, TEMB, TEMC, TEMO, TEME, TAUTOT 
■^WpiTE IIW*32) NKQD, TITH( 1 ) , TI T6(2) 

WrllTE ( IW,36) TITB( 9),TIT0( 10> ,TITB( 11 » , T I TB ( 5 ) , T I T8 ( 6 ) , T I f Q ( 3 ) 

■ WRITE nW,34) T ITB( 12) ,TI TB( 13) ,TITB( 14» ,TI TB(7) ,TITB(8) ,TITB(<,) 
IF ( TAUTOT .LE. 5.0 ) GO TO 142 
•WRITE ( I W, 45) TAUTOT 
. :G0 TO 1000 

.CONTINUE 

OrVIiDE BASIC LAYERS WITH DELTA TAU GREATER THAN 0.02 INTO 
SUB-LAYERS SO THAT DELTA TAU OF NO RESULTANT LAYER EXCEEDS 

0 . 02 ,,,,,, 

AND Then, ^ , , , 

COMPUTE ATTENUATION FACTORS FOP THE INCOMING DIRECT SOLAR 
RADIATION FOR ALL TEN DIFFERENT DIRECTIONS, 

AND AT ALL LAYERS 




I 

I ,r. 


'.9 


TAUIl) 

= 0.0 




INEWII 

) = 1 




DO 144 

J = u 

10 



ATENIl 

,J) = - 

1.0 



A(J) = 

0.0 




CONTINUE = 




cm = 

TAUBSR/TITBI 

l> 


Ll = 1 





DO 16,0 

L = 1, 

nblyr 



C(2) = 

PRTHIL 

) 1' Cl 

1) 


0(3) = 

OZOTHI 

L) * OZABS 

CI4) = 

STOUST 

(L) =!■ 

3SCAST 

CIS) = 

STOUST 

ID 

BABSST 

C(6) '= 

TPOUST 

ID ^ 

BSCATP 

C(7) = 

TPDUST 

(D V 

BABSTP 

BID = 

C.{2) f 

CI3 ) 

+ ' 

C 14) 

IF I B 

(U .GT 

. 0,02 

) 

GO 

N = 1 





GO TO 

148 




N = B(' 

D/0.02 

+ 1 



TEMA = 

l.O/N 




C(2) = 

TEMA =* 

CI21 



CI4) = 

TEMA * 

C(4) 



C(6 ) = 

TEMA ♦ 

C(6) 



C(8) = 

TEMA # 

BID 



L2 = L 

1 + N - 

1 



C(9) = 

1 .O/CI 

3) 



IF ( L2 .LE. 

300 ) 

GO 

To 

WRITE 

( IW,47) 




GO TO 

1000 




CONTINUE i 




DO 150 

LJ * ll 

1,L2 




♦ 

TO 


CIS) 

146 


^ CI6) + C(7) 


149 


ICHCKILJ) =0 
OMEGR(LJ) = C(2) ^ C(9J 
OMEGSTILJ) = C(4) ★ C(9| 
OMEGTPILJ) = C(6) ♦ C(9) 


SITBB276 
SITBB277 
SITBB278 
SIT8B279 
S ITBQ280 
S ITBB281 
SIT8B282 
51760283 
SlTB82d4 
SITBB285 
SITBB286 
SIT88287 
SIT8B288 
SITBB289 
SITBB290 
SITBB291 
S1TB8292 
SI T88293 
SITBB294 
SIT8B295 
SITBB296 
SIT83297 
SITBB298 
SITBB299 
SITBB300 
SITBB301 
S1TBB302 
SITBB303 
SITB8304 
SITB03O5 
SITBB306 
SITB8307 
51738308 
SITBB309 
SI TBB310 
SITB8311 
SITBB312 
SITBB313 
SITBB314 
SITBB315 
SI TBB316 
SITB8317 
SIT83318 
SIT8B319 
SIT0B32O 
SITBB321 
SITBB322 
SIT83323 
SIT0B324 
SITBB325 
SITBB326 
51188327 
SITB8328 
51783329 
SITB8330 
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n o n o 


I 50 


15? 


I o6 
158 

IbO 


161 

162 


* DELS(K,J,L) 


DTAU(LJ) * C(8I 
0TAIJH(LJ> = 0.5 * OTAU(LJ) 
TAU(LJ*l) = TAU(LJ) ♦ DTAUILJI 
CCMINUE 
ICMCK(Ll) = 1 1 
00 158 J = 1 1 10 
TEMB = 0.0 
DO 152 K = 1,L 
TEMB = TEMB *■ B«K) 

CONTINUE 

DO 156 LJ = LI ,L2 
lJi i LJ t 1 

TEMC = AIJ) » TEMA * (TEMB - 
IF { TEMC .GT. 100. 0 J GO TO 
ATENiLJlfJI = -EXPI-TEMC) 

GO TO 156 
ATENiLJlfJI 
CONTINUE 
A( J) = TEMB 
CONTINUE 
LI = LI + N 
INEW(L+1) 

CONTINUE 
MXNLYP = 

MXNLVL = 

DO 162 L 
DO 161 J 
BTEN(L f J) 

CONTINUE 
CONTINUE 


A( J) I 
154 


♦ (LJl -Lll 


= 0.0 


= LI 
L2 

MXNLYR ♦ 1 
= 1, MXNLVL 
= 1,18 

= EXP(-TAU(L)/AMU( Jl) 


DETERMINE NTR, THE UPPER LIMIT OF THE LEGENDRE SERIES 
multiple SCATTERING C ALCUL A T I ONS , , , , , AND THEN, , , » 

S CONDITIONING 'POINTS 


.GT, 0 ) GO TO 165 


FOR THE 



DETE 

RMlMt 

PDsn 

riONS 

0 

F THE 

VAR 


IF { 

NMXST 

.GT. 

0 . 

OR 

. NMXTP . 


NTR * 

40 







GO TO 

175 






165 

NTI? = 

60 







IF ( 

N M XT P 

.GT. 

0 

GO 

TO 168 


GO TO 

175 






168 

IF ( 

NMXTP 

.GT. 

180 

) 

GO TO 

171 


GO TO 

175 






171 

IF { 

NMXTP 

.GT. 

240 

) 

GO TO 

173 


NTR = 80 
GO TP. 175 
1 73 NTR = 100 
\ 75 NTR2 = NTR/2 
"RITE (IWfld) 

WRITE {IW,4<?) NTR 
DISTAN = 10.0/NTR 

NUMCCN = TAUIMXNLVD/DISTAN + 4.0001 
IF ( TAU( MXNLVL) .GT. 4.0 .AND. NTR .GT 
IF ( TAU(MXNLVL) .GT . 4.0 .AND. NTR .GT 
IF I NUMCPN .LE. 100 ) GO TO 180 


60 

SO 


NUMCON = NUMCON ♦ 
NUMCON = NUMCON + 


SITBB331 
SITBB332 
SITaBi33 
SITB8334 
S'JTBB335 
S1TBB336 
SITBB337 
SIT8B338 
SITBB339 
SITBB340 
SITBB341 
SIT8B342 
SITBB343 
SITS 3344 
SIT3B345 
SIT8B346 
SITBB347 
SITBB348 
SITBB349 
S1TBB350 
SITB8351 
SIT8B352 
SI TBB353 
SITBB354 
SITBB355 
SITBB356 
SITBB357 
SITBB358 
SIT6B359 
SIT8B360 
SITB8361 
SITB8362 
S1T38363 
SIT33364 
SITBB365 
SlTaa 366 
SITBB367 
SITBB368 
SIT83369 
SIT8B370 
SIT8B371 
SIT88372 
SIT83373 
SITBB374 
SITB3375 
SITBB376 
SIT83377 
SIT8S378 
SITBB379 
SITea380 
SITBB381 
SITB8382 
10SITE8383 
16SITB8384 
SITB8385 
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rtonno nooo 


WRITE IIWt5) NUMCQN SITBB386 

GJ TO ioOO $ITBB387 

180 NUMCm = NUHCON - I SITB838B 

icposin = 1 siTBBiag 

TEMi^'= TAUIMXNLVU/NUMCOI SITBB390 

TEMft: = TEMA S1T88391 

J » 2 SITBB392 

00 l!05 -.1 = l.MXNLVL SIT8B393 

IF (; TAU(I) .LE. TEMB ) GO TO 185 SITB8394 

ICPOSIJ) = I SITBB395 

J * J ♦ 1 SI T8B396 

TEMB = TEMB ♦ TEMA SITBB397 

185 CONTINUE SITBB398 

ICPOS(NUMCON) = MXNLVL SITBB399 

DO 186 ! = ItNUMCON SIT88400 

II = ICPOSm SITBB401 

WRITE (Iw,51» 1,T&U(II),II SITBB^OZ 

186 CONTINUE S1T8B<V03 

CALL SUOSTA ( CMEGR , COFAR , OMEGST , COF AS .OMEGTP , COFAT , MXNLYR , NTR , SITSB404 

1 DTAUH,ATEN,FNYN,CAPLAM,CAPLX,CAPLYI SITBB405 

SITB04O6 

COMPUTE primary-scattered CONTRIBUTION TO THE EMERGENT RADIATION SITBB407 
FOR ALL CASES OF THE UNIDIRECTIONAL ILLUMINATION FROM ABOVE... SITB8408 

SITB8409 

LIMIT = MAX0(NMXST,NMXTP| SIT8B410 

00 199 N = 1,10 SITBB4U 

00 198 J = 1,18 SITB8412 

TEMB = 0,«0 ’ SITB8413 

00 197 L = 1,MXNLYR SIT3B414 

t.l = iL ♦ I SITBB415 

TEMC = -0.5 (ATEN(L,N) * BTEN(L,J) + ATENILI,N» * BTEN(Ll,J)» S1TBS416 

TEMA = 0.0 SIT33417 

00 190 I = 1,NTR SITBB418 

TEMA = TEMA ♦ CAPLAM{I,L) * FNYP(I,J> « FNYNU,N) SITBB419 

190 continue SITBB420 

NTRA = NTR + 1 SITBB421 

IF I LIMIT .LE. NTR ) GO TO 192 SITB8422 

DO 191 I = NTRA, LIMIT SITB3423 

TEMA = TEMA + (COFAS(l) =» OMEGST(L) + COFATIII ♦ OMEGTPlLI) * SITBB424 

1 FNYP(I,J) * FNYN(I,N) SITB3425 

191 CONTINUE SIT8B426 

192 CONTINUE V SITBB427 

TEMB = TEMB *0.25 * TEMC * TEMA * OTAU(L) S1TB8428 

197 CONTINUE SITB8429 

E1N(J,N) = TEMB SITBB430 

198 CONTINUE SITBB431 

199 CONTINUE SITBB432 

I SITB3433 

COMp:UTE SOURCE TERMS DUE TO ISOTROPIC ILLUMINATION FROM BELOW. .. .SITB3434 
AND ALSO,,,,,, SIT8B435 

PRIMARY-SCATTERED CONTRIBUTION TO THE EMERGENT RADIATION.. SITBB436 

! SITBB437 

DO 201 J = 1,18 SITBB438 

ElNtJ,ll) =0.0 SITB8439 

201 CONTINUE SITBB440 


100 


or»ooo oonrio 




T6MA = TAU(MXNLVL) - TAUIU 

DO 220 I = l.NTR 

PCAO ( 15‘ I I AJVO 

TcME .= -0.5/ (2*1-1 1 

call'- OQL ATE { A JVD ,T EMA r TEMB » 

IF (-^r .NE. 2 ) GO TO 203 
f^X’SClMn = 6.2 83185 ♦ T6MB 
203 idprJTINUE 

bo '210 L - l.MXNLYR 
Lt » L * 1 

,TEMC = TAU(MXNLVL» - TAIJ(Ll) 

CALL POLATE ( A JVD, TEMC , TEMO » 

.*• CAPLY( I ft. 11 ) =: CAPLAMU.L) * TEME * OTAU(L) ♦ (TEMB ♦ TEMD) 

DO 205 J - 1»18 

EIN(J,ll) = EIN(J«ll) + 0.25 * (BTEN(L,JJ ♦ TEMB ♦ BTENILI.J) ♦ 
I TEMDI DTAU(L) * CAPLAH(I,L) * FNYP(I.J) 

205 CONTINUE 

IF ( 1 .NE. 2 ) GO TO 208 
FXS(Ll,U) = 6.283185 * TEMO 
208 TEMB = TEMO 
210 CONTINUE 

220 continue 

SET ELEMENTS OF THE A VECTOR TO ZERO FOR ALL VALUES OF THETA 
SUB Z£RO» and also FOR THE CASE OF ISOTROPIC ILLUMINATION, 

AND THEN FORM THE MATRIX F SUB 1... 

CALL SUBSTB ( A VECT , FM AT , GMAT , NTR , NTR2 ) 

GENERARE F SUB J MATRIX AND A SUB J VECTORS FOR ALL 
LAYERS AND FOR ALL POSITICNS OF THE SUN, AS WELL AS THE 
CASE OF illumination FROM BELCW.... 

KKK = 2 

NBAS = 0 i 

DO AOO L = 1,MXNLYR 
IF ( L .EQ. 1 ) GO TO 295 
IF ( ICHCK(L) .EQ. 6 I GO TO 325 
2 95 CONTINUE 

NBAS = NBAS I ^ 

IPITEIU = NBAS 

CALL PITRIX (AL ,CAPLX( 1,LJ , AR , P I MAT , TEM , DINV , B , C , I P ,L I MU , NTR ) 

N8S1 * 4*n:bas - 3 

NBS2 = NBSl +1 

N3S3 = NBS2 +1 

N8S4 = NBS3 + I 

WRITE (17* NBSl) 0REKA 

WRITE r( 17 'NQS2) BREK8 

WRITE ll7'NbS3) BREXC 

WRITE (17»NBS4) BREKO 

GO TO 327 

325 IPlTE(t) =5NBAS 
327 continue 

CALL SUBSTC ( A, PIM AT, FMAT , DINV,CAPLY, AVECT, NTR ,NTR2 ,L ) 


SITB8441 
SI rBB442 
SITbB443 
SI Tb844^ 
SI TBBA/tS 
SITBB446 
SIT8344 7 
SITBB448 
SITB3449 
SI TB8450 
SITB(J45l 
S1TB8452 
SITB3453 
S1TB8454 
SITB8455 
SITBB456 
S1T3B457 
SIT6B458 
SITBS459 
SITBB460 
SI T80461 
SIT3346Z 
SlTaB463 
SI TBB464 
SIT6B465 
SITB3466 
SITB8467 
SITBB468 
SITB8469 
S1TS3470 
SIT8B471 
SIT8B472 
SITBB473 
51138474 
SITBB475 
SITBB476 
SITS3477 
SITB8478 
SIT33479 
SITB8480 
SITBB481 
SITBB482 
SITBB483 
SITB3484 
SITBB485 
SIT8B486 
SITB3487 
SITBB488 
SI T8 8 489 
SIT8B490 
SITB8491 
SIT0B492 
S1TB3493 
SIT8B494 
SIT63495 
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oooo o n n o onooo oon 


COMPUTE U AND T MATRIXES, AS WELL AS U AND T VECTORS 

IF THE level corresponds TO ONE OF THE CONDITIONING POINTS... 


IF ( (L+II .NE. ICPOSIKKKII GO 
CALL SUBSTD ( C IN V, FMA T ,NTR? I 


TO AOO 


400 


3UDOIU I 

CALL SOLI SY{ l,CiNV, CIMAT ,TEM,R, A, IP,NTR2, ITR,C,D> 

WP ITE ( IW ,531 ITR ,KKK 

IjF t ^ITR .LE. 0 ) GO TO 1000 

KKM = KKK - 1 

CALL SU6STE < TMA T , C I MAT ,FMA T ,UMAT , NTP2 I 

WRITE (ll*KKM) UMAT 

WRITE (12* KKM) TMAT 

NTR21 = NTR2 + I 

CALL SUBSTF i FMAT ,UMAT , NTR2 ) 

CALL SUBSTG i T VECT , AVECT , UMAT , UVECT ,NTR ,NTR2 , NTR2 I » 

WRITE (13'KKMJ TVECT 

WRITE (14*KKM) UVECT 

KKK = KKK ♦ I 

CONTINUE 


SOLVE THE LINEAR SYSTEM TO OBTAIN VALUES OF THE ELEMENTS 
OF THE L SUB K VECTOR CORRESPONDING TO THE CONDITIONING 
POINT FUR THE LOWER BOUNDARY CF THE ATMOSPHERE.... 


K = NUMCOl 

CALL SUBSTH ( 0 1 NV ,UMAT , GMAT , NTR2> 

DINV NOW CONTAINS BOTTOM HALF OF RECTANGULAR MATRIX 
U SUB 2 MINUS G MATRIX. 

BEAD {14»K) UVECT 
DO 600 N = 1,11 
ISW(N) = 0 

DO 560 I = l,NTR2 ’ 

A( I ) = UVECT! I ,N> 

560 CONTINUE 


A NOW contains BOTTOM HALF OF THE U SUB 2 VECTOR 
BUT WITH OPPOSITE SUGN*... 


CALL SOLISY ( 2 , 0 I NV , P I MAT , TEM , B , A , I P ,NTR2 , 1 TR , C , 0) 
IF ( N .EQ. 11) GO TO 562 
WRITE !IW,55) THETOIN),ITR 
GO TO 563 

562 CONTINUE i ' - 
WRITE (IW,57) ITR 

563 CONT INUE 

IF ! ITR .GT. 0 ) GO TO 565 
ISWIN) = 11 
565 CONTINUE 

DO 5.70 I = 1,NTR2 
VECL2! 1 ,N) = Bl 1) 

570 CONTINUE 

CALL SUaSTI (N,VECL2,GMAT,NTR2I 
600 continue 


SIT0B496 

SITBB497 

SITBB498 

SITB3499 

SITB8500 

SITBB501 

SITB3502 

SIT8B503 

SITBB504 

SITB3505 

SITBB506 

SITBB507 

SITBB508 

SIT6B509 

SIT8B510 

SITBB511 

SITB3512 

SITBB513 

SIT80514 

SITB3515 

SIT8B516 

SIT0B517 

SITBB518 

SITBB519 

SITBB520 

S1TBB521 

SITBB522 

SITB3523 

SIT0B524 

SITBB525 

SITBB526 

SIT03527 

SITea528 

SITB3529 

SITBB530 

SITB3531 

SITB8532 

SITBB533 

SITB3534 

SITB3535 

SITBB536 

SIT3B537 

SIT33538 

SITBB539 

SIT8B540 

SIT08541 

SITB8542 

SITBB543 

SITB3544 

SITBB545 

SITB3546 

SITBB547 

SITBB548 

SITB3549 

SITB3550 
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noon 


SBAR * -2.0 ♦ * 

WPUTE FLUXES AT ALL ‘ 

L- SUB iK-2),— . ' ^ VECTORS.... 


615 


617 


*^10 


TVECT 
, 0 » GO 
UMAT 

uvecT 


TO 


hif 


(I SW,Kl, NflU’ »VECL1,VECL2, TVECT, AVECT, UVECT, 
TO ^ ° 


725 


K.r NUMCOl 
K'li. s. K - 1 
I^EiAfi. ^( 13 *K) 

IF! (i. K1 .EQ. 

REAIO « ll 'KU 
RE /^0 ( 14 'K 1 ) 

CONTINUE 
CALL SUBSTJ 
1 THAT, UMAT, GHAT I 
IF ( Kl ,EQ. 0 ) GO 
READ I 12'KH TMAT 

continue 

LMIN = ICpOSIK) 

FLUX**UMUo!ATEN,AvK.T,FXS,FXU,FXD,FXN,NTR,LMIN,iSW) 

SUBSTK (AMOMT, AVI L t 

= LMIN *1 

L = LMIN.LMAX 

L .EC. LMIN ) GO f'l 725 
ICHCK(Ll) .EQ. 0 I ‘'‘J 730 

= ^ ♦ IPITEILl ) - ^ 

= N3S1 ♦ 1 


730 


soo 


900 

905 


910 

915 


918 


LMAX 
CALL 
CALL 
LMIN 
DO 300 
LI = L 
IF ( 

IF ( 
NBSl 
NBS2 
N8S3 
N8S4 
READ 
READ 
READ 
READ 


BREKA 

BREKB 

EREKC 

BREKD 


= NBS2 + I 
= NBS3 I 
I 17'NRSl) 

( 17'NBS2) 

( 17' NBS3) 

( 17'NBS2) 

CONTINUE 

CALL SUBSTL { B , DI NV , C A N 
CALL FLUX (AMUO ,ATENtAVi 
call SUBSTK (8M0MT,AVM I 

CALL SUBSTM : LCApL AM , lU I f 

CONTINUE 
K * K - I 
DO 905 N = 

00 900 I = 

VECL2I I ,N ) 

CONTINUE 
CONTINUE 
IF ( K *GT. 

DO 915 N = 

00 910 J = 

EIN(J,N) = 

CONTINUE 
CONTINUE 
00 918 j = 

EIN(J,ll) = 

CONTINUE 


V.PIMAT, AVECT,NTR,L1) 

( T,FXS,FXU,FXD,FXN,NTR,L,ISW) 
,NTR,NTR2) 

), AMCMT,BMGMT,FNYP,OTAUH,EIN,NTR,L,Ln 


1,11 

1,NTR 

= VECLII I • 


GO TO 'll*’ 


0 ) 

1 , u 
1,18 

EIN( J,N> /AMIH 


1) 


1,18 

EINIJ, ll> 


, BTEN(MXNLVL,J) 


SITBB551 
SITBB552 
SIT8B553 
S IT8d55A 
SITBB555 
SITBa556 
SITB8557 
SITBB558 
SITaB559 
S1TBBS60 
SIT8B561 
SITBB562 
SITBB563 
SITB856<» 
SITBB565 
SITB8566 
SITBB567 
SIT8B568 
S1TBB569 
SIT88570 
SITBB571 
SITBB572 
SITBB573 
SITBB57^ 
SITB8575 
SITBB576 
SITBB577 
SITB5578 
SITBB579 
SITBB580 
SIT3B581 
SITB8582 
SIT83583 
SIT8858^ 
SITBB585 
SITaB586 
SIT83587 
SITB3588 
SIT08589 
SITB8590 
S1TB3591 
SITBB592 
SITBB593 
SITB8594 
SITBB595 
SITBB596 
SITB8597 
SIT8B598 
SIT08599 
SITBB600 
SITB8601 
SITBB602 
SITBQ603 
SITBB604 
SITBB605 
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non non 


PRINT OUT FLUXES 

WRITE IIW.IOJ 
00 •)50 N = 1,11 
IF ( N .EO, 11 ) GO TO 920 
WHITE (TW,6-1) NMDD, ALOA,THETO(NI 
GO TO 925 

9>0 WRITE ( IW,63) NM00,AL0A 
925 WRITE ( IW,65I 
NN = NBLYR/2 
NN = 2 * NN 

IF.f NN .EQ, NBLVR ) GO TO 927 
LMAX = N9LYR 
, GO TO 928 

927 LMAX = N6LYR - I 

928 DO 930 L = 1 ,LMAX ,2 
LI » L > 1 

L2 * INEW(L) 

L3 » INEWILI ) 

WRITE (IW,67) L,FXSIL2,N) ,FXD(L2,N),FXU(L2,NI ,FXNIL2,N1, 

1 L1,FXS(L3,N) ,FXD(l 3,NI,FXUa3,N) ,FXN(L3,N> 

930 CONTINUE 

IF ( NN .NE. NBLYP ) GO TO 940 
LI » NBLYR + 1 
L2 = INEW(Ll) 

WRITE (iW,69) L1,FXS(L2,N) ,FX0lL2,N) ,FXU(L2,N) ,FXN(L2,N) 

940 CONTINUE 
950 continue 

WRITE (IW,71) SBAR 

PRINT OUT INTENSITY OF THE EMERGENT RADIATION 

DO 970 N = 1,10 

TEMA = IFXS(MXNLVL,N) * FXD (MXNLVL , N )) /3 . 141593 

00 960 J = 1,18 

EIC( J,N,ILDA) = EINIJtN) 

TICU,N,ILDA) = TEMA ^ EIN(J,11I 
960 continue 
970 CONTI NUE 

SSBBRRITLDA) = SBAR i 

WRITE a6’NMCIDJ T I TB , E 1C , T I C , S SBBRR ' 

WRITE (IW,73) NMOD,ALDA 
WRITE (IW,75) I THETOIN) ,N=l ,10) 

write ( IW ,77) n;HcTA( J ) ,AMU( J) , (EIC( J,N,ILDA) ,N=l ,10) ,J=1 ,18) 
WRITE (IW,79) I 

WRITE ( IW,77) (THETAI J) ,AMU( J) ♦ (TIC(J,N, ILOA ) , N= 1 , 10 ) , J = 1 , 1 8 ) 
WRITE IIW,71) SSBBRRIILDA) , 

CALL TIMDAT ( DATE ,HOUR , ItVE , ITRE ) 
riMV = IITVE - ITVB) 0.001 
TIMR = IITRE “ ITRB) * 0.001 
WRITE (6,951 NMOD,ALOA,TIMV,TIMR 
GO TO 108 
1000 RETURN 
END 


SITB3606 

SIT8B607 

SITBB608 

SITBB609 

SITB8610 

SI 768611 

SI rB3612 

SIT6U613 

SIT0B614 

SITB8615 

SIT68616 

SIT88617 

SIT6B618 

SITBB619 

SITBB620 

SIT8B621 

S1TBB622 

51188623 

SITBB624 

S1T83625 

SI TBB626 

SIT88627- 

SIT6B628 

51788629 

SIT8B630 

SITBB631 

SITB3632 

SIT88633 

SI T88634 

SITB3635 

SIT83636 

SITBB637 

SITB8638 

S1T8B639 

SITBB640 

SITB864l 

SITB3642 

SITBB643 

SITBB644 

SITBB645 

SITBB646 

SIT88647 

SIT8B648 

SITBB649 

SI TBB650 

SIT88651 

STTB3652 

SITBB653 

SI TB0654 

SIT8B655 

S1TBB656 

SIT8B657 

SITB865a 

SITBB659 

SITB8660 
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VII. INPUT FOR A TEST RUN 


7.1 Input for SITAA ; (See page 106.) 



000 


0.5773503 

0.0 

0.0 

O.C 

0.0 

ZEROES 

OF 

P 

sue 

2 

0 . 77 ^ 5')67 

0.0 

0.0 

0.0 

0.0 

zeroes 

OF 

P 

SUB 

3 

0 . 33 ‘ J 9 ai 0 

0.8611363 

o.c 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

4 

0 . 538^693 

0.9061798 

0.0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

5 

0 . 238619 ? 

0.6612094 

0.9324695 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

6 

0 . 4058^52 

0.7415312 

C . 9491079 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

7 

0 . 1 P 34346 

0.15255324 

0.7966665 

0.9602899 

0.0 

ZEROES 

OF 

P 

SUB 

8 

0. 3242534 

0.6133714 

0.8360311 

0.9681602 

0.0 

ZEROES 

OF 

P 

SUB 

9 

0.1488743 

0,4333954 

0.6794096 

0.8650634 

0.9739065 

ZEROES 

OF 

P 

SUB 

10 

0 . 26$5432 

0.5190961 

0.7301520 

0.3870626 

0.9782287 

ZEROES 

OF 

P 

SUB 

11 

0 . 12 52 334 

0,3678315 

0.5873180 

0.7699027 

0.9041173 

ZEROES 

OF 

P 

SUB 

12 

0 . 96 X 5606 

0.0 

0.0 

O.C 

0.0 

ZEROES 

OF 

o 

f 

SUB 

12 

0.2304583 

0.4484928 

0.6423493 

0.8015781 

0.9175984 

ZEROES 

OF 

P 

SUB 

13 

0.9841831 

0.0 

0 • u 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

13 

0.1080549 

0.3191124 

0.5152486 

0,6872929 

0.3272013 

ZEROES 

OF 

P 

SUB 

14 

0.9264349 

0.9662838 

0.0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

14 

0.2011941 

0.3941513 

0.5709722 

0. 7244177 

0.8482066 

ZEROES 

OF 

P 

SUB 

15 

0.9372734 

0.9879925 

0.0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

15 

0.0950125 

0.2816036 

0,4580168 

0.6178762 

0.7554044 

ZEROES 

OF 

P 

SUB 

16 

0.8656312 

0,9445750 

0.9894009 

O.C 

0.0 

ZEROES 

OF 

P 

SUB 

16 

0.1784842 

0.3512318 

0.5126905 

0.6576712 

0.7815140 

ZEROES 

OF 

P 

SUB 

17 

0.3802392 

0 . 95 C 6755 

0.9905755 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

17 

0.0847750 

0.2518862 

C . 4117512 

0.5597703 

0.6916870 

ZEROES 

OF 

P 

sua 

16 

0.3037050 

0.8926025 

0.9558239 

0.9915652 

0.0 

ZEROES 

OF 

P 

SUB 

IS 

0, 1603586 

0.3165641 

0.4645707 

0.6005453 

0.7209662 

ZEROES 

OF 

P 

SUB 

19 

0.6227147 

0.9031559 

C . 9602082 

0 . 9924 C 68 

0.0 

ZEROES 

OF 

P 

SUB 

19 

0.0765265 

0.2277359 

0.3737061 

0.5108670 

0.6360537 

ZEROES 

OF 

P 

SUB 

20 

0.7463319 

0.3391170 

0 <, 9 l 22344 

0.9639719 

0.9931286 

ZEROES 

OF 

P 

SUB 

20 

0.1455619 

0.2560213 

0.4243421 

0.5516188 

0.6671388 

ZEROES 

OF 

P 

sue 

21 

0.7684400 

0.8533634 

0.9200993 

0.9672269 

0.9937522 

ZEROES 

OF 

P 

SUB 

21 

0.0697393 

0,2078604 

0.3419358 

0.4693558 

0.5876404 

ZEROES 

OF 

P 

SUB 

22 

0.6944873 

0.7878168 

0.8658126 

0.9269568 

0.9700605 

ZEROES 

OF 

P 

SUB 

22 

0.9942946 

0.0 

0.0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

22 

0.1332568 

0.2641357 

C . 3903010 

0.5095015 

0,6196099 

ZEROES 

OF 

P 

SUB 

23 

0.7186614 

0.8048884 

0.8767524 

0.932971 1 

0.9725425 

ZEROES 

OF 

P 

SUB 

23 

0. 9947693 

0.0 

0.0 

0.0 

0,0 

ZEROES 

OF 

P 

SUB 

23 

0.0640569 

0.1911189 

0.31 50427 

0.4337935 

0.5454215 

ZEROES 

OF 

P 

SUB 

24 

0.^6480937 

0.7401242 

0.8200020 

0.3864155 

0.9382746 

ZEROES 

OF 

P 

SUB 

24 

0.9747266 

0.9951872 

0.0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

24 

0.1228647 

0.2433669 

0. 36 11723 

0 . 473 C 027 

0.5776629 

ZEROES 

OF 

P 

SUB 

25 

0.6735664 

0.7592593 

0.8334426 

0.8949920 

0.9429746 

ZEROES 

OF 

P 

SUB 

25 

0.9766639 

0.9955570 

0.0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

25 

0.0592301 

0.1768588 

0.2920043 

0.4030513 

0.5084407 

ZEROES 

OF 

P 

SUB 

26 

0.6066923 

0.6964273 

0 . 7763859 

0. 8454459 

0.9026379 

ZEROES 

OF 

P 

SUB 

26 

0.9471591 

0.9783854 

0.9958857 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

26 

0.1139726 

0.2264594 

0. 3359939 

0.4411483 

0.5405516 

ZEROES 

OF 

P 

SUB 

27 

0.6329080 

0.7170135 

0.7917716 

0 . 8562 C 79 

0.9094623 

ZEROES 

OF 

P 

SUB 

27 

0.9509006 

0.9799235 

0.9961793 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

27 

0.0550793 

0.1645693 

0.2720616 

0.3762515 

0.4758742 

ZEROES 

OF 

P 

SUB 

28 

0.5697205 

0.6566511 

0 . i 7356 l 09 

0.8056414 

0.6658925 

ZEROES 

OF 

P 

SUB 

28 

0.9156330 

0.9542593 

0.19813032 

0.9964425 

0.0 

ZEROES 

OF 

P 

SUB 

28 

0. 1062782 

0.21 13523 

0.31403 16 

0.4131529 

0.5075930 

ZEROES 

OF 

P 

SUB 

29 

0.5962813 

0.6782145 

0.7524629 

0.8181855 

0.8746378 

ZEROES 

OF 

P 

SUB 

29 

0.9211802 

0.9572856 

0.98 25455 

0.9966794 

0.0 

ZEROES 

OF 

P 

SUB 

29 
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0.05U719 
0.5366241 
0.9825605 
0.0995553 
0.5632492 
0.8697600 
0. C483077 
0.5063999 
0.9493676 
0.9972639 
0.0936311 
0.5333899 
0. 3580097 
0.9974247 
0.0455098 
0.4801065 
0.3166842 
0.9372278 
0.0883713 
0.5063228 
0. 8267499 
0.9979358 
0.0430182 
0.4558639 
0. 7855762 
0.9720277 
0.0836704 
0.4817109 
0. 7964592 
0.9734930 
0.0407851 
0.4338472 
0. 755;6859 
0.953-.663 
0.0794438 
0.4592605 
0.7674012 
0.9557752 
0.0387724 
0. 4137792 
0. 7273183 
0.9328129 
0.0756233 
0.4387173 
0. 739704S 
0.9359770 
0.0369489 
0.3954239 
0.7004946 
0.9109597 
0.9983996 
0.0721530 
0.4198614 
0.7134142 
0.9149479 


0.1538699 

0.6205262 

0.9262000 

0.1981212 

0.6427067 

0.9307570 

0.1444720 

0.5877150 

0.8963212 

0.0 

0.1864393 

0.6102423 

0.9023168 

0.0 

0.1361524 
0.5578755 
0.8659346 
0.9975718 
0. 1760511 
0.5805453 
0.8732191 
0.9977066 
0.1287361 
0.5306803 
0.8358472 
0.9863865 
0.1667539 
0 .5533424 
0.8442530 
0.9891860 
0.1220840 
0.5058347 
0.8065442 
0.9748463 
0.1583853 
0.5283773 
0.8159063 
0.9760987 
0.1 160B41 
0.4830756 
0.7783057 
0.9579168 
0.1508134 
0.5054166 
0.7884711 
0.9599069 
0,1106450 
0.4b 21 719 
0.7512799 
0.9389236 
0.0 

0.1439298 
0.4842512 
0.7621117 
0-, 94 1672 0 


0.2546369 
0.6978505 
0.9600219 
0.2947181 
0. 71 57768 
0,0625039 
0.2392874 
0.6630443 
0.9349061 
0.0 

0.2776091 
0.6817320 
0. 9386944 
0.0 

0.2256667 
0.63102 17 
0.9078097 
0.0 

0.2623529 

0.6502244 

0.9128543 

0.0 

0.2135009 
0.6015677 
0. 8799298 
0.9978305 
0.2486678 
0.6210926 
0.8861250 
C. 9979446 
0.2025705 
0.5744560 
0.8520350 
0.9897395 
0.2363255 
0. 5941535 
0.8592529 
0.9902515 
0. 1926976 
0.5494671 
0.8246122 
0.9772599 
0.2251396 
0.5692209 
0.8327212 
0.9733387 
0.1837368 
0.5263957 
0.7979621 
0.9617594 
0.0 

0.2149562 

0.5461163 

0.8068360 

0.9634866 


0.3527047 
0.7677774 
0, 9836681 
0.3883859 
0.7817331 
0, 9846859 
0.3318686 
0.7321821 
0.9647623 
0.0 

0.3663393 
0.7472305 
0. 9668229 
0.0 

0.3133111 

0.6989391 

0.9421624 

0.0 

0. 3466016 
0.7148145 
0.9453451 
0.0 

0.2966850 

0,6660012 

0.9174978 

0.0 

0.32’8 8 374 
0.6844863 
0.9217814 
0.0 

0.2817088 
0.6392544 
0.8918557 
0.9980499 
0,3127716 
0.6561732 
0.8971671 
0. <5981474 
0. 2681522 
0,6125539 
0.8659595 
0.9907262 
0.2981763 
0.629 7648 
0.3722015 
0,991 1671 
0.2558251 
0.5877446 
0.8402860 
0.97<?3425 
0,0 

0.2848620 

0.6051343 

0.8473537 

0.9802782 


0.4470338 

0.8295658 

0.9968935 

0.4781938 

0.8399203 

0.9970875 

0.4213513 

0.7944838 

0.9856115 

0.0 

0.4518500 

0.8061624 

0.9864557 

0.0 

0.3983593 

0.7610649 

0.9687083 

0.0 

0.4281375 

0.7738103 

0.9704376 

0.0 

0.3776725 

0,7294892 

0.9482730 

0.0 

0.4067005 

0.7430788 

0,9509723 

0.0 

0.3589724 

0.6997987 

0.9257413 

0.0 

0.3872402 

0.7140444 

0.9294091 

0.0 

0.3419941 

0.6719567 

0.9020988 

0.9932377 

0.3695050 

0.6867015 

0.9066359 

0.9983216 

0.3265161 

0.0438834 

0.8780206 

0.9915773 

0.0 

0.3532826 

0.6609973 

0.8834538 

0.9919596 
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0.998472 3 

0.0 

0.0 

0.0 

0.0 

ZEROES 

OF 

9 

SUB 

43 

0.0352B92 

0.1056919 

0. 1755680 

0.2445695 

0.3123525 

ZEROES 

OF 

P 

SUB 

44 

0.37<?5‘794 

■0.44292,02 

0. 5050544 

0.5646725 

0.6214773 

zeroes 

OF 

P 

SUB 

44 

0. 6751861 

0.7255311 

0.7722615 

0.8151445 

0.8539666 

ZEROES 

OF 

P 

SUB 

44 

0., 3885342 

0.91 86753 

0. 9442395 

0.9650997 

0.9811518 

ZEROES 

OF 

P 

SUB 

44 

0.i'5Q23l64 

0.9985402 

0. C 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

44 

0.0689870 

0.1376452 

0.2056475 

0. 2726698 

0.3383927 

ZEROES 

OF 

P 

SUB 

45 

0.4025029 

0.4646951 

0. 5246728 

! 0.i5«21502 

0.6368534 

ZEROES 

OF 

P 

SUB 

45 

0.6685217 

0.7369088 

0.7817843 

0. 8229342 

0.8601625 

ZEROES 

OF 

P 

SUB 

45 

0.13932917 

0.9221639 

0.9466417 

0.9666083 

0.9819687 

ZEROES 

OF 

P 

SUB 

45 

0.9926500 

0. 9986036 

0.0 

0 . 0 

0.0 

ZEROES 

OF- 

P 

SUB 

45 

0.;0337722 

0.1011625 

0. 1680912 

0.2342529 

0.2993458 

ZEROES 

OF 

P 

SUB 

46 

0.3630729 

0.4251433 

0.4852739 

0.5431903 

0.5986283 

ZEROES 

OF 

P 

SUB 

46 

0.6513348 

0.7010695 

0.7476054 

0.7907301 

0.8302468 

ZEROES 

OF 

P 

SUB 

46 

0.8659754 

0.8977527 

0.9254338 

0.9488924 

0.9680214 

ZEROES 

OF 

P 

SUB 

46 

0.9327337 

0.9929623 

0.9986630 

o.;o 

0.0 

ZE,ROes 

OF 

P 

SUB 

46 

0.0660869 

0.1318849 

0. 1971061 

0.2614655 

0.3246815 

ZEROES 

OF 

P 

SUB 

47 

0.3864778 

0.4465841 

0. 5047376 

0.5606840 

0.6141787 

ZEROES 

OF 

P 

SUB 

47 

0.-6649877 

0.7128890 

0. 7576729 

0.7991438 

0.8371201 

ZEROES 

OF 

P 

SUB 

47 

0.;8T14360 

0.9019413 

0.9285027 

0. 9510040 

0.9693468 

ZEROES 

OF 

P 

SUB 

47 

0.f3S34510 

0.9932552 

0.9987187 

0.0 

0.0 

zeroes 

OF 

P 

SUB 

47 

0.P323802 

0.0970047 

C. ■1612224 

0.2247639 

0.2873625 

ZEROES 

OF 

P 

SUB 

48 

0.3437559 

0 .4086865 

0.4669029 

0,;523 1610 

0.5772247 

zeroes 

OF 

P 

sus 

46 

0.6288674 

0.6778724 

0. 7240341 

0.7671590 

0.8070662 

ZEROES 

OF 

P 

SUB 

48 

0-8‘»35883 

0.8765720 

0.9058791 

0.9313867 

0,9529877 

ZEROES 

OF 

P 

SUB 

48 

0. 9705916 

0.9841246 

0.9935302 

0.9987710 

0.0 

ZEROES 

OF 

P 

SUB 

48 

0.0634207 

0.1265860 

0. 1892416 

0.2511352 

0.3120175 

-ZEROES 

OF 

P 

SUB 

49 

0. 3716435 

iO. 4297730 

0.4861719 

0.5406132 

0.5928777 

ZEROES 

OF 

P 

SUB 

49 

0.6427543 

0.6900433 

0,7345543 

0.7761069 

0.8145344 

ZEROES 

OF 

P 

SUB 

49 

0.3496621 

0.3814084 

0.9095357 

0.9341003 

0.9548537 

ZEROES 

OF 

P 

SUB 

49 

0.9717622 

0.9847579 

'0,9937887 

0.9988202 

0.0 

ZEROES 

OF 

P 

SUB 

49 

0.0310933 

0.0931747 

0. 1548906 

0.2160072 

0,2?628p2 

ZEROES 

OF 

P 

SUB 

50 

0.3355002 

0.3934143 

0.4498063 

0.5044581 

0.5 5715^3 

ZEROES 

OF 

P 

SUB 

50 

0.6077029 

0 .65 58 90 5 

0.7015525 

0. 7444943 

0.7845558 

ZEROES 

OF 

P 

SUB 

50 

0.3215821 

0.8554295 

0. 8359680 

0.9130786 

0.9366566 

ZEROES 

OF 

P 

SUB 

50 

0.9566110 

0.9723644 

0. 9353541 

0.«940320 

0.9988664 

ZEROES 

OF 

P 

SUB 

50 

0.0609611 

0.1216954 

0,18 19770 

0.2415817 

0. 3002876 

ZEROES 

OF 

P 

SUB 

51 

0.35787o5 

0.4141340 

0.4688509 

0.5216237 

0.5728552 

ZEROES 

OF 

P 

SUB 

51 

0.6217557 

0.6683432 

0.7124445 

0,7538954 

0.7925417 

ZEROES 

OF 

P 

SUB 

51 

0. P28239S 

;0. 8608567 

0.89027 12 

0.9163739 

0.9390675 

ZEROES 

OF 

P 

SUB 

51 

0.9582678 

0.9739034 

0. 9859160 

0. 9942613 

0.9989100 

ZEROES 

OF 

P 

SUB 

51 

0. 0299141 

0,0896352 

0.1490355 

0.2079023 

0.2660248 

ZEROES 

OF 

P 

SUB 

52 

0.3231950 

0.3792083 

0.4338641 

0.4369667 

0.5383262 

ZEROES 

OF 

P 

SUB 

52 

0.5877586 

a.6350870 

0.6801419 

0.7227621 

0.7627950 

zeroes 

OF 

P 

SUB 

52 

0. 8000973 

0.8345354 

0. 3659862 

0. 8943369 

0.9194861 

ZEROES 

OF 

P 

SUB 

52 

0.9413439 

0.9593318 

0.97 488 39 

0.9864462 

0.9944776 

zeroes 

OF 

P 

SUB 

52 

0.99395 1 1 

0.0 

0.0 

0.0 

0.0 

zeroes 

OF 

P 
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52 

0. 05 e 68 51 

0.1171678 

0. 1762467 

0. 2327214 

0.2893939 

zeroes 

OF 

P 
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53 

0. 3450683 

0.3995542 

0.4526622 

0.5042C98 

0.5540193 

zeroes 

OF 

P 

SUB 

53 

0.6U19190 

0.6477437 

0.6913356 

Q. 7 32 5442 

0.7712277 

zeroes 

OF 

P 

SUB 

53 

0.8072525 

0.8404946 

0.8708393 

0.8981821 

0.9224286 

zeroes 

OF 

P 

SUB 

53 

0.9434954 

0.9613097 

0. 9758102 

0.9869470 

0.9946819 

zeroes 

OF 

P 

SUB 

53 

0.9989899 

0.0 

0.0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

53 

0.0288167 

0.0863545 

0,1436054 

0.2003793 

0.2564875 

zeroes 

OF 

P 

SUB 

54 

0.3117437 

0,3659643 

0,4189693 

0.4705824 

0.5206323 

ZEROES 

OF 

P 

SUB 

54 
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5. 5689528 

0.6153832 

0.6597694 

0,7019639 

0.7418265 

ZEROES 

OF 

P 

SUB 

54 

0. 7792249 

0.8140340 

0. 8461405 

0.8754355 

0.9018223 

ZEROES 

OF 

Pi 

SUB 

54 

0.'5252134 

0,9455310 

0. 9627076 

0.9766863 

0.9074206 

zeroes 

OF 

P 

SUB 

54 

3.9948751 

0.9990267 

Q. 0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

54 

0.0365720 

0,1129643 

0. 1689940 

0.2244823 

0.2792516 

ZEROES 

OF 

P 

SUB 

55 

0.3331263 

0.3859339 

0.4375053 

0. 4876752 

0.5362829 

ZEROES 

OF 

P 

SUB 

55 

0.5831727 

0.6281945 

0.6712040 

0.7120634 

0. 7506419 

ZEROES 

OF 

P 

SUB 

55 

3. 7068150 

0. 8204693 

0.8514946 

jO. 87979123 

0.f3G52718 

ZEROES 

OF 

P 

SUB 

55 

0.9278514 

0.9474589 

C. 9640313 

;0. 9775157 

0,9878689 

ZEROES 

OF 

P 

SUB 

55 

0. 9950580 

0.9990614 

0.0 

‘0.0 

0.0 

ZEROES 

OF 

P 

SUB 

55 

0.0277970 

0.0833052 

0. 1385558 

0.1933732 

0.2476029 

ZEROES 

OF 

P 

SUB 

56 

0. 3010623 

0.3535910 

C. 4050269 

0.4552108 

0. 5039 8177 

ZEROES 

OF 

P 

SUB 

56 

0.5512068 

0.5967222 

0.6403931 

0.6320846 

0.72166S78 

ZEROES 

OF 

P 

sua 

56 

0. 7590204 

0.7940269 

0.8265791 

0,8565764 

0.8839261 

ZEROES 

OF 

P 

SUB 

56 

0.9085436 

0.9303529 

0.9492865 

0.9652859 

0.97830117 

ZEROES 

OF 

P 

SU8 

56 

0. |3882937 

0.9952312 

0.9990943 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

56 

0. 0546072 

0.1090513 

0. 16317pl 

0,2168018 

0.2697866 

ZEROES 

OF 

P 

SUB 

57 

0.^3219662 

0.3731849 

0.4232899 

0.4721316 

0.5195643 

ZEROES 

OF 

P 

SUB 

57 

0. 5654464 

0.6096410 

0.6520162 

0.6924456 

0.7303083 

ZEROES 

OF 

P 

SUB 

57 

u. 7669901 

0. 8008829 

0.6323855 

0. 8614040 

0.8878517 

ZEROES 

OF 

P 

SUB 

57 

0.9116497 

0.9327270 

0.95 10206 

0. 9664761 

0.9790472 

ZEROES 

OF 

P 

SUB 

57 

0 . 9836966 

0.9953955 

0.9991256 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

57 

3.0268470 

0.0804636 

0.1333483 

0. 186 8470 

0.2393069 

ZEROES 

OF 

P 

SUB 

58 

0.2910769 

0.3420077 

0.3919523 

0.4407668 

0.4383105 

ZEROES 

OF 

P 

SUB 

58 

0. 5344463 

0.579041 1 

0.6219664 

0.6630934 

0.7023186 

ZEROES 

OF 

P 

SUB 

58 

0.7395137 

0.7745767 

0.8074063 

0.8379080 ^ 

0.8659938 

ZEROES 

OF 

P 

SUB 

58 

0.B915827 

0.9146009 

0.9349821 

0.9526676 

0.9676062 

ZEROES 

OF 

P 

SUB 

58 

0.9797550 

0.9890790 

0.9955515 

0.9991552 

0.0 

ZEROES 

OF 

P 

SUB 

58 

0.0527735 

0,1053999 

0.1577325 

0. 2096255 

0.2609342 

ZEROES 

OF 

P 

SUB 

59 

0.3115157 

0.3612289 

0.4099353 

0.4374992 

0.5037879 

ZEROES 

OF 

P 

SUB 

59 

0. 5486724 

0.5920277 

0.6337330 

0.6736719 

0.7117331 

ZEROES 

OF 

P 

SUB 

59 

0. 7478106 

0.7818039 

0.81 36181 

0.6431646 

0.8703611 

ZEROES 

OF 

P 

'SUB 

59 

0.B951317 

0.9174074 

0.9371262 

0.9542330 

0.9606802 

ZEROES 

OF 

P 

SUB 

59 

0.9804276 

0.9894424 

C. 9956996 

0.9991834 

0.0 

ZEROES 

OF 

P 

SUB 

59 

0.0259593 

0.0778093 

0. 1294491 

0.1807400 

0.2315436 

ZEROES 

OF 

P 

SUB 

60 

0. 2B17229 

0.3311428 

0.3796701 

0. 4271737 

0.4735258 

ZEROES 

OF 

P 

SUB 

60 

0.518601 4 

0,5622789 

0 . 60444 06 

0. 6449728 

0.6837663 

ZEROES 

OF 

P 

SUB 

60 

0. 7207165 

0.7557238 

0.7336937 

0.8195375 

0.8481720 

ZEROES 

OF 

P 

SUB 

60 

0. 6745199 

0.8985103 

G.9200785 

0.9391663 

0.9557223 

ZEROES 

OF 

P 

SUB 

60 

Cl. «69701 3 

0.9610672 

0-9897879 

0. 9958405 

0.9992101 

ZEROES 

OF 

P 

SUB 

60 

0.051058Q 

0.1019346 

0. 15 26442 

0.2029056 

0,2526377 

ZEROES 

OF 

P 

SUB 

61 

0,3017106 

0.3499964 

0. 3973692 

0.4437C52 

0.4838836 

ZEROES 

OF 

P 

SUB 

61 

0. 5327866 

0.5752997 

0.6163118 

0.6557160 

0.6934096 

ZEROES 

OF 

P 

SUB 

61 

0.7292941- 

0.7632760 

0.7952666 

0.8251824 

0.8529455 

ZEROES 

OF 

P 

SUB 

61 

0.87048*32 

0.90 17292 

0.9226226 

0,9411090 

0.9571402 

ZEROES 

OF 

P 

SUB 

61 

0. 9706743 

0.9816760 

0*9901167 

0. 9959746 

0.9992356 

ZEROES 

OF 

P 

SUB 

61 

0.0251293 

0.0753244 

0. 1253292 

0.1750175 

0.2242636 

ZEROES 

OF 

P 

SUB 

62 

0.2729-V32 

0.3209333 

0.3o81128 

0.4143623 

0.4595652 

ZEROES 

OF 

P 

SUB 

62 

0.503607 1 

0.5463769 

0.5877664 

0.6276713 

0,6659906 

ZEROES 

OF 

P 

SUB 

62 

0, 7026275 

0.7374895 

0.7704886 

0. 8015413 

0.8305693 

ZEROES 

OF 

P 

SUB 

62 

0.0574992 

0.8822630 

0.9047981 

0,9250476 

0.9429604 

ZEROES 

OF 

P 

SUB 

62 

0.9584912 

0,9716007 

0.9822559 

0.9904300 

0,9961023 

ZEROES 

OF 

P 

SUB 

62 

0.9992599 

0.0 

0.0 

o.c 

0.0 

ZEROES 

OF 

P 

SUB 

62 

0.0494522 

0.0987834 

0.1478728 

0.1966003 

0.2448468 

ZEROES 

OF 

P 

SUB 

63 

0.2924991 

0.3394255 

0.3855264 

0.4306338 

0.4747872 

ZEROES 

OF 

P 

SUB 

63 
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0.51772H8 

0.5594034 

0.5997091 

0.638547*1 

0.6758225 

ZEROES 

OF 

P 

SU8 

63 

3.71)4^41 

0.7453246 

0.7773813 

0. 8075355 

0.8357136 

ZEROES 

OF 

P 

sua 

63 

0. 8619^65 

0.8858703 

0,9077263 

0.9273609 

0.9447261 

ZEROES 

OF 

P 

SUB 

63 

0.959779^ 

0.9724840 

0. 9828088 

0.9907285 

0.9962240 

ZEROES 

'OF' 

P 

SUB 

63 

0.9992830 

0.0 

0.0 

0.6 

0.0 

ZEROES 

OF 

P 

SUB 

63 

0.0243503 

0.0729931 

0.1214628 

0. 1696444 

0.2174236 

ZEROES 

OF 

P 

SUB 

64 

0.2646H72 

0.3113229 

C, 3572202 

0.4C22702 

0.4463660 

ZEROES 

OF 

P 

sua 

64 

0.4894031 

0.5312795 

0.57 18956 

0.6111554 

0. $489655 

ZEROES 

OF 

P 

SUB 

64 

0.6852363 

0.71983 19 

0.7528199 

0.7839724 

0.8132653 

ZEROES 

OF 

P 

SUB 

64 

0.8;406293 

0.8659994 

0.8893154 

0.9105221 

0.9295692 

ZEROES 

OF 

P 

SUB 

64 

0.9464L14 

0.96 10038 

0.9733268 

0.9833363 

O.S>9101'34 

ZEROES 

OF 

P 

SUB 

64 

0.0963401 

0.9993050 

O.C 

0.0 

0.0 

zeroes 

OF 

P 

SUB 

64 

0.0479435 

0.0957767 

0. 1433896 

C. 1906727 

0.2375172 

ZEROES 

OF 

P 

SUB 

65 

0. 2838155 

0.3294609 

0.3743486 

0.4183753 

0,4614397 

ZEROES 

OF 

P 

SUB 

65 

0.5034428 

0.5442879 

0. 5638812 

0.6221315 

0.6589509 

ZEROES 

OF 

P 

SUB 

65 

0.6942547 

0.72 79617 

0. 7599943 

0.7902790 

0.8187459 

ZEROES 

OF 

P 

SUB 

65 

0.8453298 

0.869969:3 

0.d926079 

0.9131934 

0.53L|6786 

ZEROES 

OF 

P 

SUB 

65 

0.9;48O209 

0.9621828 

C. 9741315 

0.983 8 3 9 8 

0.9912853 

ZEROES 

OF 

P 

SUB 

65 

0.9964509 

0.9993261 

0.0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

65 

0.0236181 

D. 0708017 

0. 1178273 

0.1645899 

0.2109853 

ZEROES 

OF 

P 

SUB 

66 

0.2i569099 

0,3022613 

0.3469382 

0. 3908409 

0.4338715 

zerces 

OF 

P 

SUB 

66 

0.4759339 

0.5169344 

0. 5567814 

0. 5953860 

0,6326620 

ZEROES 

OF 

P 

SUB 

66 

0.6685264 

0,7028990 

0. 7357031 

0.7668656 

0.7963170 

ZEROES 

OF 

P 

sue 

66 

0.3239914 

0.8498272 

C, 8737667 

0. $957565 

0.9157475 

ZEROES 

OF 

P 

SUB 

66 

0.9336951 

0.9495592 

0.9633046 

0.9749004 

0.9843209 

ZEROES 

OF 

P 

SUB 

66 

0.91915450 

0.9965568 

0.9993462 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

66 

0.0465240 

0,0929473 

0.13 91693 

0. 1850898 

0.2306095 

ZEROES 

OF 

P 

SUB 

67 

0.2756298 

0.320053T, 

0.3637332 

0.4067255 

0.4487869 

ZEROES 

OF 

P 

SUB 

67 

0.4j898 763 

0.5299047 

0.5687855 

0,6064345 

0.6427700 

ZEROES 

OF 

P 

•SUB 

67 

0.6|777134 

0.71 1 16 91 

0.7431244 

0.7734504 

0.8021012 

zeroes 

OF 

P 

SUB 

67 

0.3290148 

0.8541330 

0.8774013 

0.898769*4 

0.9181909 

ZEROES 

OF 

P 

SUB 

67 

0.9356239 

0.9510305 

0.9643773 

0. 9756356 

0.9847803 

zeroes 

OF 

P 

SUB 

67 

0.9917933 

0.9966530 

0.9993654 

0..0 

0.0 

ZEROES 

OF 

P 

SUB 

67 

0.0229237 

0.0687379 

0. 1144026 

0.1598266 

0.2049146 

ZEROES 

OF 

P 

SUB 

68 

0.2,495 7 16- 

0.2937037 

0.33 72182 

0. 3800235 

0.4220296 

ZEROES 

OF 

P 

SUB 

68 

0.4o3l482 

0.5032928 

0.5423789 

0.5303244 

0,6170495 

ZEROES 

OF 

P 

SUB 

63 

0,6524769 

0.6865322 

0. 7191436 

0.7502427 

0.7797640 

ZEROES 

OF 

P 

SUB 

68 

0 . o 

076455 

0.8338285 

0.8562579 

0, 8808824 

0.9016543 

ZEROES 

OF 

P 

sue 

68 

0.9205301 

0.9374700 

0.9524384 

0.9654038 

0.9763390 

ZEROES 

OF 

P 

SUB 

68 

0. 9 3522 C 9 

0.9920309 

0.9967548 

0. 9993838 

0.0 

ZEROES 

OF 

P 

SUB 

68 

0,0 

451862 

0.0902801 

0.1351396 

0. 1793223 

0.2240883 

..ZEROES 

OF 

P 

SUB 

69 

0.2 

678969 

0.3111577 

0.3537828 

0.3956852 

0.4367792 

ZEROES 

OF 

P 

SUB 

69 

0.4 

7698C9 

0.5162081 

0. 5543803 

0.5914209 

0.6272528 

ZEROES 

OF 

P 

SUB 

69 

0.6 

618032 

0.6950016 

q. 72 678 01 

0. 7570739 

0,7858210 

ZEROES 

OF 

P 

SUB 

69 

0.9129623 

0.8384437 

6. $6221 17 

0.8842182 

0.9044184 

ZERCES 

OF 

P 

SUB 

69 

0.0227708 

0.9392331 

0.9537866 

0. 9663866 

0.9770123 

ZEROES 

OF 

P 

SUB 

69 

0,9'8 56421 

0.9922533 

0.9963475 

0.9994014 

0.0 

ZEROES 

OF 

P 

SUB 

69 

0.0|222784 

0.C667910 

0. 11 11109 

0.1553301 

0.199181’0 

ZEROES 

OF 

P 

SUB 

70 

0.2’4263 64 

0.28561 30 

0.32 8 0166 

0. 3697720 

0.4107932 

ZEROES 

OF 

P 

SUB 

70 

0, 4509988 

0.4903090 

0.5286457 

0.5659329 

0.6020964 

ZEROES 

OF 

P 

SUB 

70 

0 • 7 0 6^6 

0.6707679 

0. 7031394 

0. 7341150 

0,7636330 

ZEROES 

OF 

P 

SUB 

70 

0. 7916349 

0.8180651 

0.8428711 

0. 8660036 

0.8874163 

ZEROES 

OF 

P 

SUB 

TO 

0.9070681 

0.9249135 

0.9409326 

0.9550785 

0.9673282 

ZEROES 

OF 

P 

SUB 

70 

0.9776574 

0.9860456 

C. 9924761 

0.9969363 

0.9994183 

ZEROES 

OF 

P 

SUB 

70 

0,0439231 

0.0877615 

0.1314305 

0. 1748457 

0.2179235 

ZEROES 

OF 

P 

SUB 

71 
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0.2605806 

0.3027347 

0. 344304i5 

0.3852097 

0.4253713 

ZEROES 

OF 

P 

SUB 

71 

0.^6471 18 

0.5031553 

C. 5406276 

0.5 77O5f.3 

0.61237L2 

ZEROES 

OF 

P 

SUB 

71 

0.6'^6504D 

0.6793689 

0. 71 096 24 

0.7411635 

0.7699340 

ZEROES 

OF 

P 

SUB 

71 

0. 7<?72183 

0. 8229^38 

0.8471207 

0. 86904 84 

0.8904855 

ZEROES 

OF 

P 

SUB 

71 

0.90S6098 

0.9269782 

0. 9425573 

0.9563171 

0.9682309 

ZEROES 

OF 

P 

SUB 

71 

0,^782757 

0.9864323 

0.9926848 

0.99 7 02), 3 

0.9994344 

ZEROES 

OF 

P 

SUB 

71 

0.0216639 

0.0649512 

0. 10B116*. 

0. 151078S 

0.1937574 

ZEROES 

OF 

P 

SUB 

72 

0.2360723 

0.27 79440 

C. 3192939 

0.3600444 

0.4001189 

ZEROES 

OF 

P 

SUB 

72 

0.4394422 

0.4779406 

0.5155416 

0.5521748 

0.5877713 

ZEROES 

OF 

P 

SUB 

72 

0.6222643 

0.6555891 

0.6876831 

0.7184361 

0.7479401 

ZEROES 

OF 

P 

SUB 

72 

0.7759900 

0.8025830 

0. G276693 

0.8512017 

0.8731361 

ZEROES 

OF 

P 

SUB 

72 

0.8934313 

0.9120491 

0. 9289546 

0.9441162 

0.9575052 

ZEROES 

OF 

P 

SUB 

72 

0.9|690967 

0.9788688 

0.9868032 

0.9928850 

0.9971029 

ZEROES 

OF 

P 

SUB 

72 

0.9994499 

0.0 

0.0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

72 

0.04272B8 

0.0853795 

0. 1278742 

0.1701354 

0.2120857 

zeroes 

OF 

P 

SUB 

73 

0.2536487 

0.2947434 

0.3353096 

0.3752583 

0.4145216 

ZEROES 

OF 

P 

SUB 

73 

0.4530277 

0.4907062 

0.5274834 

0,5633070 

0.5980967 

ZEROES 

OF 

P 

SUB 

73 

0.6317938 

0.6643369 

0.6956665 

0.7257253 

0.7544584 

ZEROES 

OF 

P 

SUB 

73 

0.7818134 

0.8077403 

0.8321917 

0.8551230 

0.8764922 

ZEROES 

OF 

P 

SUB 

73 

0.8962604 

0.914391:5 

0.9308522 

0.9456126 

0.9586457 

ZEROES 

OF 

P 

SUB 

73 

0.9699277 

0.9794379 

0.9871590 

0.9930770 

0.9971811 

ZEROES 

OF 

P 

SUB 

73 

0.9994648 

d.o 

0.0 

o.b 

0.0 

ZEROES 

OF 

P 

SUB 

73 

0.0210825 

0.0632099 

0. 1052250 

0. 1470530 

0.1886196 

ZEROES 

OF 

P 

SUB 

74 

0.2298503 

0.21706733 

0.3110146 

0.3508029 

0.3899674 

ZEROES 

OF 

P 

SUB 

74 

0.4284337 

0.4661482 

0.50 3 02 89 

0. 5390152 

0.5740432 

ZEROES 

OF 

P 

SUB 

74 

0.6080505 

0.6409768 

0.6727634 

0.7033539 

0.7326938 

zeroes 

OF 

P 

SUB 

74 

0.7607311 

0.7874157 

0.6127004 

0.8365402 

0.8588926 

ZEROES 

OF 

P 

SUB 

74 

0.8|797179 

0.8989791 

0.9,166420 

0,9326751 

0.9470499 

ZEROES 

OF 

P 

SUB 

74 

0.9597410 

0.9707256 

0.9799843 

0.9875007 

0.9932614 

ZEROES 

OF 

P 

SUB 

74 

0.9i972563 

0.9994791 

0.0 

0.0 

a.o 

ZEROES 

OF 

P 

SUB 

74 

0.0j^l5976 

0.0831231 

0. 1245048 

0. 1656709 

0.2065503 

ZEROES 

OF 

P 

SUB 

75 

0.2470720 

0.2871660 

0.3267629 

0,3657941 

0.4041920 

ZEROES 

OF 

P 

SUB 

75 

0,4^18902 

0.4788234 

0.5149277 

0.. 550 1406 

0.5844010 

ZEROES 

OF 

P 

SUB 

75 

0.6176497 

0.649S292 

0.6808837 

0.7107595 

0.7394043 

ZEROES 

OF 

P 

SUB 

75 

0.7667701 

0.7928079 

0.8174733 

C. 8407234 

0.8625182 

ZEROES 

OF 

P 

SUB 

75 

0.8828197 

0.9015929 

0. 9183053 

0.9344271 

0.9484312 

ZEROES 

OF 

P 

SUB 

75 

0.9607934 

0.9714923 

0.9805093 

0.9878290 

0.9934335 

ZEROES 

OF 

P 

SUB 

75 

0. 9973284 

0.9994928 

0. 0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

75 

0.0205314 

0.0615596 

0.1024840 

0.1432355 

0.1837456 

ZEROES 

OF 

P 

SUB 

76 

0.2239453 

0.2637684 

0.3031462 

0.3420128 

0.3803028 

ZEROES 

OF 

P 

SUB 

76 

0.4179514 

0.4548953 

G. 4910721 

0.5264209 

0.5608820 

ZEROES 

OF 

P 

SUB 

76 

0.5943974 

0 .6269104 

0 . 6583664 

0.6887121 

0.7178966 

ZEROES 

OF 

P 

SUB 

76 

0.7458705 

0.7725867 

0. 7980002 

0.3220680 

0.8447497 

ZEROES 

OF 

P 

SUB 

76 

0.8660069 

0.8858038 

0. <5041071 

0.9208859 

0.9361118 

ZEROES 

OF 

P 

SUB 

76 

0.9497592 

0.9618051 

0.97Z2292 

0.9810139 

0.9881445 

ZEROES 

OF 

P 

SUB 

76 

0.9936088 

0.99 73 978 

0.9995059 

0.0 

0.0| 

ZEROES 

OF 

P 

SUB 

76 

0. 0405247 

0.0809329 

Q. 1213080 

0. 1614338 

0.2012943 

ZEROES 

OF 

P 

SUB 

77 

0.2408242 

0.2799533 

0.3186325 

0.3567832 

0.3943476 

ZEROES 

OF 

P 

SUB 

77 

0.4312642 

0.4674722 

0. 5029122 

0. 5375258 

0.5712563 

ZEROES 

OF 

P 

SUB 

77 

U. 6040483 

0.6358477 

0.6666025 

0. 6962621 

0.7247777 

ZEROES 

OF 

P 

SUB 

77 

0. 7521025 

0.7781916 

0.6030021 

0.8264933 

0.8486266 

ZEROES 

OF 

P 

SUB 

77 

0.8693656 

0.8886762 

0.9065267 

0. 922 3878 

0.9377326 

ZEROES 

OF 

P 

SUB 

77 

0.9510367 

0.9627783 

0.97293S0 

0. 9814992 

0.9804478 

ZEROES 

OF 

P 

SUB 

77 

0.9937725 

0.9974645 

0.9995186 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

77 

0.0200084 

0.0599932 

0.0998319 

0.1396106 

0.1791158 

ZEROES 

OF 

P 

SUB 

78 
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0.21833AI 

0.2572028 

0.2956596 

0. 3336429 

0.3710919 

ZEROES 

OF 

P 

SUB 

78 

0.4079467 

0.4441482 

0.4796384 

0.5143605 

0.5432589 

ZEROES 

OF 

P 

SUB 

78 

0.5«12793 

0.61 33688 

0.6444761 

0.6745514 

0.7035464 

ZEROES 

OF 

P 

SU8 

70 

0. 7314147 

0.7581117 

0.7835947 

0. 8078228 

0.8307573 

ZEROES 

OF 

P 

SUB 

78 

0.A523614 

0.8726005 

0.8<? 14422 

0.908856^ 

0.9248151 

ZEROES 

OF 

P 

SUB 

78 

0. 9?929ZB 

0.9522663 

0. 9637148 

0.9736201 

0.9819662 

ZEROES 

OF 

P 

SUB 

78 

0^9887397 

0.9939300 

0.9975286 

0,999530^ 

0.0 

ZEROES 

OF 

P 

SUB 

78 

Ol 0395053 

0.0789S00 

0.1132708 

0. 1574O70 

0.1962975 

ZEROES 

OF 

P 

SUB 

79 

0.2348814 

0.2730986 

0. 3108894 

0.3481947 

0,3849565 

zeroes 

OF 

P 

SUB 

79 

0.4211171 

0.4566202 

0.4914104 

0.5254332 

0,5586357 

ZEROES 

OF 

P 

SUB 

79 

Oi 5909660 

0.6223735 

0.6528092 

0.6822257 

0.7105769 

ZEROES 

OF 

P 

SUB 

79 

0J7378187 

0. 7639084 

0. 7888054 

0.8124708 

0.3348676 

ZEROES 

OF 

P 

SUB 

79 

0.|8559609 

0.8757176 

0, 8941071 

0.911 1005 

0.9266713 

ZEROES 

0.F 

P 

SUB 

79 

0.19407952 

0.9534502 

0.9646165 

0.9742767 

0.9824157 

zerq'es 

OF 

P 

SUB 

79 

•3.19890207 

0.9940816 

C. 9975904 

0. 9995425 

0.0 

ZEROES 

OF 

P 

SUB 

79 

0.j0195ll4 

0.0585044 

0.0974084 

C. 1361640 

0.1747123 

ZEROES 

OF 

P 

SUB 

80 

0.2129945 

0. 2509524 

0.2885231 

0. 3256644 

0.3623048 

ZEROES 

OF 

P 

SUB 

80 

0.13983934 

0.4338754 

0,4636966 

0.5028041 

0.5361459 

ZEROES 

OF 

P 

SUB 

80 

0. 568671 3 

0.6003306 

0.6310758 

0.6608599 

0,6896376 

ZEROES 

OF 

P 

SUB 

80 

0.7173652 

0.7440C03 

0.i76 950;24 

C.17938327 

0.8169541 

zeroes 

OF 

P 

SUB 

80 

0.3388315 

0.8594314 

0.8787226 

0. 8966756 

0.9132631 

ZEROES 

OF 

P 

SUB 

ao 

0.9264599 

0.9422423 

0.9545908 

0,9654851 

0.9749091 

ZEROES 

OF 

P 

SUB 

80 

0.9628486 

0.9892913 

0. 9*5422 75 

0.9976499 

0.9995538 

ZEROES 

GF 

P 

SUB 

80 

0.0385369 

0. or 7016 5 

0. 1153817 

0.1535755 

0.19L5411 

ZEROES 

OF 

P 

SUB 

81 

0.2292221 

0. 2665626 

p. 30350^1 

0.3400006 

0.3759890 

ZEROES 

Or 

P 

SUB 

81 

0.4114183 

0.4462373 

0,4803929 

0.5138347 

0,5465132 

ZEROES 

OF 

P 

SUB 

81 

0.5783797 

0.6093869 

0.6394837 

0 , 668 6405 

0.6967988 

ZEROES 

OF 

P 

SUB 

81 

0. 7239219 

0.7499695 

0. 7749028 

0.798:68^9 

0.8212804 

ZEROES 

OF 

P 

SUB 

81 

0.8426557 

0 .8627791 

0.8816206 

0.8991523 

0.9153482 

ZEROES 

OF 

P 

SUB 

81 

0.9301841 

0.9436330 

0, 9556900 

0.9663221 

0,9755136 

ZEROES 

OF 

P 

SU8 

81 

0.9'632657 

0.93 95520 

0.9943632 

0,9977072 

0.9995647 

ZEROES 

OF 

P 

SUB 

81 

0.0li903 8 5 

0.0570873 

0. 0950543 

0,1328830 

0.l!70M9l 

ZEROES 

OF 

P 

SUB 

82 

0.2'p79079 

0.2449952 

0. 28172 74 

0,3180511 

0.3539136 

ZEROES 

OF 

P 

SUB 

82 

0. 3892630 

0.4240479 

0.4582181 

0,4917239 

0.5245167 

ZEROES 

OF 

P 

SUB 

82 

0.5565491 

0.5377745 

0.6181476 

0 . 6476246 

0.6,761625 

zeroes 

OF 

P 

SUB 

82 

0.7037200 

0.7302573 

0, 75573 5pr 

0.7601184 

0.8033700 

ZEROES 

OF 

P 

SUB 

02 

3.8254567 

0.8463467 

0.8660095 

0. 8844167 

0.9015416 

ZEROES 

OF 

P 

SUB 

82 

0.9173593 

0.9318469 

0.9449835 

0.956749 9 

0.9671291 

ZEROES 

OF 

P 

SUB 

82 

0.9761061 

0.983667^ 

0.9898:033 

0.9945038 

0.9977624 

ZEROES 

OF 

P 

SUB 

82 

0.9995752 

0.0 

0.0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

82 

0. 0376143 

0.0751754 

0. 1126301 

0. 1499253 

0.1 810-084 

ZEROES 

OF 

P 

SUB 

83 

0, 2238267 

0.2603233 

0.2964614 

0.3321749 

0.36 74182 

ZEROES 

OF 

P 

SUB 

83 

0.4021415 

0.4362956 

0^4693322 

0.5027C38 

0.5348639 

ZEROES 

OF 

P 

SUB 

83 

Oi 5662669 

0.5968684 

0.6266252 

0.6554950 

0.6 834370 

ZEROES 

OF 

P 

SUB 

83 

0.7104117 

0.7363609 

G. 7613079 

0.7851573 

0.3078953 

ZEROES 

OF 

P 

SUB 

83 

0.8294899 

0.8499105 

0.S691281 

0.8871155 

Oi. 9 036474 

zeroes 

OF 

P 

SUB 

83 

0J;9192999 

0.93 34513 

0.9462815 

0.9577723 

0.9679075 

ZEROES 

OF 

P 

SUB 

83 

0.9766728 

0.9840556 

0. 9900457 

Oi 9946345 

0,9978i56 

ZEROES 

OF 

P 

SUB 

33 

0.9995853 

0.0 

0.0 

0 j; 0 

0.0 

ZEROES 

OF 

P 

SUB 

83 

0.0185379 

0.0557380 

0.0928111 

0.'1297560 

0.1665214 

ZEROES 

OF 

P 

SUB 

04 

0.2030568 

0.2 393115 

0.2752354 

0.:3107790 

0.3458930 

ZEROES 

OF 

P 

SUB 

84 

0.3805290 

0,4 146390 

0.4431760 

0.4810935 

0.5133462 

ZEROES 

OF 

P 

SUB 

84 

0.5448893 

0. 5756794 

0.6056738 

0.6348311 

Q.6631UI 

ZEROES 

OF 

P 

sua 

84 

0.6904745 

0.7168837 

0,7423020 

0. 7666944 

0.7900272 

ZEROES 

OF 

P 

SUB 

84 

0.8122681 

0.8333864 

0.8533529 

0.8721399 

0.3897216 

zeroes 

OF 

P 

SUB 

84 
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0.9060736 

0.9211733 

0.9349999! 

0.9475342 

0.9587590 

ZEROES 

OF 

P 

sua 

84 

3.9686686 

0.9772195 

0,9844298 

0.9902795 

0.9947606 

ZEROES 

OF 

P 

SUB 

84 

0.'»978670 

0.9995951 

0.0 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

84 

0.0367349 

0,0734202 

0. U00063 

0. 1464440 

0.1826840 

ZEROES 

OF 

P 

SUB 

35 

0.2186774 

0.2543735 

0.2897303 

0. 3246939 

0.3592192 

ZEROES 

OF 

P 

SUB 

85 

0. 3932596 

0.4267691 

0.4597025 

0.4920153 

0.5236640 

ZEROES 

OF 

P 

SUB 

85 

0.5546057 

0.5847937 

0.6142022 

0.642 7766 

0.6704833 

ZEROES 

OF 

P 

SUB 

85 

O.6c»72049 

0.7231451 

0. 7480292: 

0. 7719035 

0.7947357 

ZEROES 

OF 

P 

SUB 

85 

0. 8164950 

0.8371522 

0. 8566792 

0. 8750497 

0.8922390 

ZEROES 

OF 

P 

SUB 

85 

0,9082233 

0.9229625 

0.9364952 

0.94B7438 

0.9597115 

ZEROES 

OF 

P 

SUB 

85 

0.9693337 

0.9777473 

0,9847910 

0.9905052 

0.9948824 

ZEROES 

OF 

P 

SUB 

85 

0.9979166 

0,9996045 

O.C 

0,0 ! 

0.0 

ZEROES 

OF 

P 

SUB 

85 

0.0181582 

0.0544506 

C. 0906713 

0.1267723 

0.1627061 

ZEROES 

OF 

P 

SUB 

86 

0. 1984254 

0.23 388;29 

0,2690319 

0.3030261 

0.3382196 

ZEROES 

OF 

P 

SUB 

86 

0. 3721671 

0.40562'36 

0.4385452 

0.4708883 

0.5026104 

ZEROES 

OF 

P 

SUB 

86 

0.5336696 

0.5640249 

0. 5936363 

0.6224648 

0,6504722 

ZEROES 

OF 

P 

SUB 

S6 

0.6776215 

0. 703 87176 

0.7292050 

0.7535707 

0.7769425 

ZEROES 

OF 

P 

SUB 

86 

0.7992395 

0.8205824 

0. 8407929 

0. 8598946 

0.8773620 

ZEROES 

OF 

P 

SUB 

86 

0.8946717 

0.9103013 

0.9247304 

0.9379398 

0.9499121 

ZEROES 

OF 

P 

SUB 

86 

0.9606315 

0.9700840 

0. '9782570 

0.9351397 

0.9907231 

ZEROES 

OF 

P 

SUB 

86 

0.9949999 

0.9979645 

0.9996136 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

86 

0.0358956 

0.0717450 

0. 1075013 

0. 1431201 

0.1785540 

ZEROES 

OF 

P 

SUB 

87 

0. 2137577 

0*2486858 

C. 2832934 

C. 3175359 

0.3513691 

ZEROES 

OF 

P 

SUB 

87 

0. 3647494 

0.4176337 

0.44-99793 

0.481 7458 

0.5128909 

ZEROES 

OF 

P 

SUB 

87 

0.5433749 

0.5731565 

0.6022034 

0.6304720 

0.6579280 

ZEROES 

OF 

P 

SUB 

87 

0.6645359 

0.7102615 

0.7350717 

0.7589343 

0.7818187 

ZEROES 

OF 

P 

SUB 

87 

0.8036954 

0.8245362 

0.8443141 

0.8630038 

0.8805812 

ZEROES 

OF 

P 

SU8 

a? 

0.3970235 

0.9123095 

C. 9264197 

0.9393357 

0.9510410 

ZEROES 

OF 

P 

SUB 

87 

0.9615204 

0.9707605 

0. 9787493 

0.9854766 

0,9909337 

ZEROES 

OF 

P 

SUB 

87 

0.9951135 

0.9950107 

0.19996224 

0.0 

0.0 

ZEROES 

OF 

P 

SUB 

87 

0.0177479 

0.0532213 

0.08B6277 

0.1239224 

0.1590610 

ZEROES 

OF 

P 

SUB 

88 

0. 1939991 

0.2286923 

C. 2630984 

0.2971724 

C, 3308720 

ZEROES 

OF 

P 

SUB 

88 

0,36415[t8 

0.3969787 

0.|429 30 24 

0.4610851 

0,4922870 

ZEROES 

OF 

P 

SUB 

88 

0. 5228685 

0.5527912 

0,i58?Q.175 

0.6l05ll04 

0.6382340 

ZEROES 

OF 

P 

SUB 

88 

0.6651535 

0.6912349 

0.|7164453 

0.7407530 

0.7641274 

zeroes 

OF 

P 

SUB 

88 

0. 7865390 

0.8079596 

0.82B3621 

0.8477209 

0.8660116 

ZEROES 

OF 

P 

SU8 

88 

0. 8832111 

0.8992973 

0. 9142514 

C. 9280530 

0.9406353 

ZEROES 

OF 

P 

SUB 

88 

0.9521323 

0.9623796 

0. 97 14144 

0. 9792252 

0,9858022 

ZEROES 

OF 

P 

SUB 

88 

0.9911371 

0.9952232 

0.'9980554 

0.9996308 

0.0 

ZEROES 

OF 

P 

SUB 

88 

0.0350938 

0.0701444 

0.;i05ld86 

0 4 1399433 

0. 1 746056 

ZEROES 

OF 

P 

SUB 

09 

0,2090523 

0.2432424 

0.:2771323 

0.3106808 

0.3438466 

ZEROES 

OF 

P 

SUB 

89 

0.3765888 

0.4U88669 

O.i4406414 

0.4718730 

0.5025233 

ZEROES 

OF 

P 

SUB 

89 

0.5325544 

0.5619294 

0w5906122 

0.6185673 

0.6457603 

ZEROES 

OF 

P 

SUB 

89 

0.6721578 

0.6977272 

0.7224370 

0^7462567 

0.7691571 

ZEROES 

OF 

P 

SUB 

89 

0. 7911098 

0.8120879 

0,8320655 

0. 85L0181 

0.8689221 

ZEROES 

OF 

P 

SUB 

89 

0.8857557 

0.9014930 

0.9161297 

0.9296327 

0.9419904 

ZEROES 

OF 

P 

SUB 

89 

0.9531876 

0.9632105 

0.9720466 

0.9796853 

0,9861169 

ZEROES 

OF 

P 

SUB 

89 

0.9913337 

0.99 53,292 

0,9930986 

0.99:9 6490 

0.0 

ZEROES 

OF 

P 

SUB 

89 

0.0173537 

0«05 20463 

0,0866741 

0. 1211975 

0.1555749 

ZEROES 

OF 

P 

SUB 

90 

0.|l897648 

0.2237260 

0,2574177 

0,2907992 

0.3238304 

ZEROES 

OF 

P 

SUB 

90 

0.3564713 

0.3886827 

0.42042 5 8 

0.4516623 

0.4823546 

ZEROES 

OF 

P 

SUB 

90 

0.5124657 

0.5419593 

0,5707999 

0.5989527 

0.6263838 

ZEROES 

OF 

P 

SUB 

90 

0.6530602 

0.6789497 

0.7040211 

0.7282442 

0.7515899 

zeroes 

OF 

P 

SUB 

90 

0. 7740299 

0.7955373 

C. 8160861 

0.8356516 

0,8542103 

ZEROES 

OF 

P 

SUB 

90 

0.8717396 

0.8882186 

C.Q036273 

0.9179473 

0.9311612 

ZEROES 

OF 

P 

SUB 

90 
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0.'}43253l 
0.‘iR64?14 
0. 0343P71 
0.2045490 
0. J687574 
0.5221243 
7.6601423 
0.|7787523 
0.3744679 
0.9444751 
0. 9067159 
0.0169805 
0.1857103 
0.|3490974 
0.^024417 
0.6413317 
0.7617717 
0.8602969 
0.9340730 
0.9809775 
0.9996621 
0.0335931 
0.2002339 
0.3612365 
0.5120676 
0.6484802 
0.7666331 
0.86319Q5 
0,9354604 
0.9813809 
0.9996693 
0.0166212 
0. 1818244 
0.3420154 
0.4927783 
0.6299572 
0. 7497707 
0,8489159 
0.9246597 
0.9749143 
0.9982944 
0.0328899 
0.1960953 
0.3540085 
0.5023653 
0.6371618 
0.7547592 
0. 8619833 
0. 9262097 
0. 9754347 
0.9983300 
0.0162767 
0. 1780969 
0.3352085 
0.4834580 


0^9542085 
0.9915239 
0.0686137 
0.2300297 
0.4004479 
0.5510934 
0.6855374 
0.7998273 
0.8906032 
0.9551964 
0.9917079 
0.0509220 
0.21 69686 
0.3007159 
0.5315107 
0 .6670149 
0.783|33p3 
0.8711107 
0.9456502 
0.9870009 
0.0 

0.0671483 
0 .23 3033 6 
0.3923573 
0.5406331 
0-6736860 
0 .7077696 
0.8796715 
0.9463040 
0 .9872769 
0.0 

0.0498452 
0.2144076 
0.3730597 
0-5214279 
0.6554224 
C. 7713494 
0.8660133 
0.9368045 
0.9817717 
0 .9996762 
0.0657442 
0.2282410 
0-3'3 45769 
0.5305313 
0 . 66 2 1 66 0 
0.7759263 
0.868741:8 
0.9381073 
0.9821503 
0,9996830 
0.0408130 
0.2100313 
0.3656969 
0.5 116942 


0.9640141 
0.99543 18 
0.1028195 
O.i 27 12299 
0.4316664 
0.5794124 
3.7101244 
0.8199595 
C. 9056887 
0.9647917 
0,0955310 
0.OH48047 
0.2519744 
0.4118952 
0.5599666 
0,6919283 
0.6039854 
0. 8929129 
0,9561528 
0,9918860 
0.0 

0.1006277 

0.2655703 

0.4230351 

0.5685883 

0.6981314 

0.8080163 

0.6951505 

a.«57C789 

0.9920584 

0.0 

0.Q830141 
0,2467539 
C.4036917 
0.5495013 
0.6801632 
0. 7920757 
0.8821537 
0.9479141 
C.98 75442 
0.0 

0. 09 852 73 
G.26 0i3 9i2 
0.4147291 
0.5581242 
0,6864538 
0.79 625 3 7 
0.88456 03 
0,9489898 
0.9878032 
0.0 

0.0812975 

0.2417432 

0.3957976 

0.5393881 


0.9726582 
0.9981404 
0. 1369040 
0. 3C41103 
0.4623761 
0.6070485 
0. 7338744 
0. 8391252 
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0.618925A 

0.6441634 

0.66071 83 

0.6925645 

0.7156768 

ZEROES 

OF 

P 

SUB 

96 

0. 73 8L'306 

0.7596023 

0, 78C3690 

0.8003087 

0,8194003 

ZEROES 

OF 

P 

SUB 

96 

0.8276235 

0 .8549590 

0.671 388i5 

0. 8868945 

0.9014606 

ZEROES 

OF 

P 

SUB 

96 

0.9 150714 

0.9277125 

0.9393703 

0.9 50 0-32 7 

0.9596883 

ZEROES 

OF 

P 

SUB 

96 

0.96.63268 

0.9759392 

0. 9825173 

0. 9680541 

0.9925439 

ZEROES 

OF 

P 

SUB 

96 

0.9959818 

0.9983644 

0.9996895 
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0.0322155 
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0.0 

TOTAL 

□ZONE 

0.250 

3 

5.00 
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2.2OA0AF-OI 2.02510E-01 l.a6lOAE-01 
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0.31250 
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2.847136-03 

2.62011E-03 
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0.31250 

1.871896-03 

1.71897E-03 
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0.31250 

1.21525E-03 
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0.31250 

7.74362E-04 

7.055566-04 

116 

0.31250 
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VIII. OUTPUT FROM A TEST RUN 


8. 1 Output from SITAA ; Note: Only a selected portion of the output is 

reproduced in the following pages (see page 120). 
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INTEGRAL EXPI-TAU/MU) ♦ P SUB 0 OF HU * „OMU 


TAU 

o.oc 

0,01 

0.02 

0.03 

0.04 

0.0 

l.00O0E*0O 

9.4966E-01 

9.1311E-01 

8.8167E-01 

8. 53546-01 

0. 100 

7.2254E-01 

7.04756-01 

6.8778E-0I 

6. 71546-01 

6.55986-01 

0.200 

5.7420E-01 

5.6217E-01 

5.50546-01 

5.39266-01 

5. 28336-01 

0.300 

4.6912E-01 

4.6018E-01 

4.51406-01 

4. 43016-01 

4.34766-01 

0.400 

3.8937E-01 

3.0243E-OI 

3.75656-01 

3.69036-01 

3.62556-01 

0.500 

3.2664E-01 

3.211 lE-01 

3.15696-01 

3.10386-01 

3.05196-01 

0.600 

2.7618E-01 

2.7169E-01 

2.67286-01 

2.62956-01 

2.5872E-01 

0.700 

2.3495E-01 

2.3124E-01 

2. 27616-01 

2. 24056-01 

2.20556-01 

0.800 

2^0085E-01 

1.9777E-01 

1.94756-01 

1.91786-01 

1.88866-01 

0.900 

1 *72406-01 

1.6 98 26- 01 

1.67296-01 

1.64806-01 

1.62356-01 

1.000 

i .4850E-01 

1.46326-01 

1.44186-01 

1.42086-01 

1.40016-01 

1.100 

1.2828E-01 

1 ,26446- 01 

1.24626-01 

1,22836-01 

1,21086-01 

1.200 

l.lllOE-Ol 

1.0953E-01 

1.07996-01 

1.06466-01 

1.04966-01 

1.300 

9.6446E-02 

9.5101E-02 

9.37786-02 

9. 24756-02 

9,11916-02 

1.400 

8.38906-02 

8.2736E-02 

8.16006-02 

8.04816-02 

7.93796-02 

1. 500 

7.3101E-02 

7.2103E-02 

7,11306-02 

7.0166E-02 

6.92166-02 

1.600 

6.3803E-02 

6.2946E-02 

6.21026-02 

6. 12706-02 

6.04506-02 

1.700 

5.5771E-02 

5.5029E-02 

5.42996-02 

5.35796-02 

5.28696-02 

1,800 

4.8815E-02 

4.8173E-02 

4.75396-02 

4.69156-02 

4.62996-02 

1.900 

4.2780E-02 

4. 22226-02 

4.16726-02 

4,11296-02 

4.05946-02 

2.000 

3.7534E-02 

3.7049E-02 

3.65706-02 

3.60976-02 

3. 56316-02 

2.100 

3.2966E-02 

3.2543E-02 

3.2126F-02 

3.17146-02 

3.13076-02 

2.200 

2.8983E-02 

2.8613E-02 

2.8249E-02 

2.78896-02 

2.75356-02 

2.300 

2.5504E-02 

2.5181E-02 

2.48626-02 

2.45486-02 

2.42386-02 

2.400 

2.2461E-02 

2.2179E-02 

2. 19006-02 

2. 16256-02 

2. 13536-02 

2.500 

1.9798E-02 

1,95506-02 

1 .93066-02 

1.90656-02 

1. 88276-02 

2.600 

1.7463E-02 

1.7 24 66- 02 

1.70326-02 

1.68206-02 

1.6611E-02 

2.700 

1 .5414E-02 

1 .5224E-02 

1.50366-02 

1.48506-02 

l,4667E-02 

2.800 

1 .3615E-02 

1.34486-02 

1 .32826-02 

1. 31196-02 

1.2958E-02 

2.900 

1.2034E-02 

1,18866-02 

1.17416-02 

1.15976-02 

1.1456E-02 

3.000 

1.0642E-02 

1.0512E-02 

1.0384E-r02 

1.02586-02 

1.01336-02 

3,100 

9.^1656-03 

9.30236-03 

9.1895E-03 

9,078lE-03 

8. 96816-03 

3.200 

,8.3366^-03 

8.23596-03 

8.13656-03 

a. 038 3E -03 

7.94136-03 

3.300 

7,3 8 4 3E -03 

7. 29556-03 

7.2078E-03 

7.12116-03 

7.03556-03 

3.400 

6.5440E-03 

6.4655E-03 

6.3881E-03 

6.31166-03 

6.23606-03 

3.500 

5.8019E-031 

5.7326E-03 

5.6642E-03 

5. 59666-03 

5.52996-03 

3.600 

5.1462E>-03 

5.08506-03 

5. 02456-03 

4.96486-03 

4.90586-03 

3.700 

4.5666E-03 

4.51246-03 

4.45896-03 

4.40616-03 

4.35396-03 

3.800 

4.0538E-03 

4. 00596-03 

3.95866-03 

3.91186-03 

3.86576-03 

3.900 

3.60006-03 

3.5576E-03 

3.5157E-03 

3.47436-03 

3.43346-03 

4.000 

3. 1982E-03 

3.1607E-03 

3.12366-03 

3. 08696-03 

3.05076-03 

4.100 

2.84236-03 

2.80906-03 

2.77616-03 

2.74366-03 

2.71156-03 

4.200 

2.52686-03 

2.4973E-03 

2.46816-03 

2.43936-03 

2.41006-03 

4.300 

2.24706-03 

2.22096-03 

2.19506-03 

2.16956-03 

2. 14426-03 

4.400 

1 .99B9E-03 

1.9757E-03 

1.95276-03 

1.93016-03 

1.90776-03 

4.500 

1.7787E-03 

1.75816-03 

1. 73776-03 

1.71766-03 

1.69776-03 

4.600 

1.5832E-03 

1.5649E-03 

1. 54686-03 

1.52906-03 

1.51136-03 

4 . 7C0 

I.4096E-03 

1.39336-03 

1.37736-03 

1.36146-03 

1.34576-03 

4.803 

I.2554E-03 

1.24096-03 

1.22676-03 

1.2125£-03 

1.19866-33 

4.900 

i.l 18JE-03 

1.10556-03 

I.0928E-03 

1.08026-03 

1.0679E-03 



5.000 «.96^7E-04 


TAU EQUAL TO 


0.05 0.06 - 0.07 0.08 0.09 

8.2783E-01 8.0405E-01 7.8184E>01 7.6096E-01 7.4124E-01 
6.4104E-01 6.2667E-01 6.L284E-01 5.9951E-01 5.8664E-01 
5.1773E-01 5.0744E-01 4.9745E-01 4.8774E-01 4.7830E-01 
4.2671E-01 4.1887E-0I 4.H22E-01 4.0376E-0I 3.96486-01 
3.5623E-01 3.5005E-01 3.4400E-01 3.3809E-01 3.3230E-01 
3.0010E-01 2.9512E-01 2.9024E-01 2.8546E-01 2.8077E-01 
2.5456E-01 2.5048E-01 2.4649E-01 2.4257E-01 2.3872E-01 
2.1711E-01 2.1374E-&1 2.1043E-01 2.0718E-01 2.0399E-01 
1.0600E-01 1.0318E-01 1.8042E-01 1.7770E-01 1.7503E-01 
1.5994E-01 1.5757E-01 1.5525E-01 1.5296E-01 l.507lE~0l 
1.3797E-01 I.3597E-01 1.3400E-01 1.3206E-01 1.3016E-01 
1.1935E-01 1.1765E-01 1.15976-01 1.1432E-01 1.1270E-01 
1.0349E-01 1.02046-01 1.0061E-01 9.91976-02 9.781 lE-02 
8.9927E-02 8.8683E-02 8.7457E-02 8.6250E-02 8.5061E-02 
7.8293E-02 7.7223E-02 7.6169E-02 7.5131E-02 7.4108E-02 
6.8281E-02 6.7359E-02 6.6450E-02 6.5555E-02 6.4673E-02 
5.9641E-02 5.88456-02 5.80596-02 5.7285E-02 5.6523E-02 
5.2169E-02 5.1479E-02 5.0799E-02 5.0128E-02 4.94676-02 
4.56916-02 4.50936-02 4.45026-02 4.39206-02 4.3346E-02 
4.0066E-02 3.9546E-02 3.9032E-02 3.8526E-02 3.8027E-02 
3.5172E-02 3.4718E-02 3.4271t-02 3.3830E-02 3.33956-02 
3.0907E-02 3.0511E-02 3.0121E-02 2.9737E-02 2.9357E-02 
2.7185E-02 2.b839E-02 2.6499E-02 2.6162E-02 2.S831E-02 
2.3932E-02 2. 3630E-02 2.3332E-02 2.3038E-02 2.2748E-02 
2. 10856-02 2. 08216-02 2.0560E-02 2.0303E-02 2.0048E-02 
1.8592E-02 1.83606-02 1.8132E-02 1.7906E-02 1.7683E-02 
1.6405E-02 1.6202E-02 1.6001E-02 1.5603E-02 1.5608E-02 
1.4486E-02 1.4307E-02 1.4131E-02 1.3957E-02 1.3785E-02 
1. 27996-02 1.2642E-02 1.2487E-02 1.2334E-02 1.2183E-02 
1.1316E-02 1.U77E-02 1.1041E-02 1.0906E-02 1.0773E-02 
l.OOlOE-02 9.88816-03 9.76B0E-03 9.6493E-03 9.5322E-03 
8.8596E-03 8.7523E-03 8.6464E-03 8.5419E-03 fl.4336E-03 
7.B456t-0i 7.7510E-03 7.65766-03 7.5654E-03 7.4743E-03 
6.9510E-03 6.86766^03 6.78526-03 6.7038E-03 6.6234E-03 
6.1614E-03 6.08776-03 6.0149E-03 5.94306-03 5.8720E-03 
5. 46396-03 5.39886-03 5.3345E-03 5.2710E-03 5.20826-03 
4.8<,75E-03 4.7899E-03 4.7331E-03 4.6769E-03 4.6214E-03 
4.3024E-03 4.25146-03 4.2011E-03 4.1514E-03 4.1023E-03 
3.8200E-03 3.7750E-03 3. 73046-03 3.6864E-03 3.6430E-03 
3.3930E-03 3.3531E-03 3.3137E-03 3.2747E-03 3,23636-03 
3.0149E-03 2.9795E-03 2.9446E-03 2.9101E-03 2.8760E-03 
2.67986-03 2.64896-03 2.6175E-03 2.5869E-03 2.5566E-03 
2.3827E-03 2.3549E-03 2.3275E-03 2.3003E-03 2.2735E-03 
2.1193E-03 2.0946E-03 2.0702E-03 2.0462E-03 2. 02246-03 
1.88556-03 1.3636E-03 1.84206-03 1.8207E-03 1.7996E-03 
1.67806-03 1.6586E-03 1. 63946-03 1.6205E-03 1.6017E-03 
1.49386-03 1.4766E-03 1.45956-03 1.44276-03 1.4261E-03 
1.33026-03 1.31496-03 1.29976-03 ■l.284«E-03 1.27006-03 
1.18486-03 1.1712E-03 1.15786-03 1.14456-03 1.1313E-03 
1.05566-03 1. 04356-03 1.0315E-03 1 .0197E-03 1,00806-03 
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INTEGRAL EXP(-TAU/MUI •JP SUB 1 OF HU * DH U FOR TAU EQUAL TO 


TAU 0.00 0.01 


0.0 

5.0000E-01 

4.902BE-01 

0.100 

4.16296-01 

4.0916E-01 

0.200 

3.51956-01 

3.4626E-01 

0.300 

3.0004E-01 

2.9540E-01 

0.400 

2.57296-01 

2.5343E-01 

0.500 

2.21606-01 

2.1837E-01 

0.600 

1.91556-01 

1.8881E-01 

0.700 

1. 66066-01 

1. 6373 E- 01 

0.800 

1.44326-01 

1.4233E-01 

0.900 

1.2570E-01 

1.2399E-01 

l.OOO 

1.0969E-01 

1.0322E-01 

l.lOO 

9.58816-02 

9. 46076-02 

1.200 

8.39356-02 

8.28316-02 

1.300 

7.35766-02 

7.26196-02 

1.400 

6.45756-02 

6. 37426-02 

1.500 

5.67396-02 

5.601 36-02 

1.600 

4.99066-02 

4.92726-02 

1.700 

4.39376-02 

4.33836-02 

1.800 

3.87166-02 

3. 82316-02 

1.900 

3.41436-02 

3.37186-02 

2.000 

3.01336^02 

2.97606-02 

2.100 

2. 66 146-02 

2.62866-02 

2.200 

2.35216-02 

2.32336-02 

2.300 

2.CB006-02 

2.05476-02 

2.400 

1.84056-02 

1.8182E-02 

2.500 

1.62956-02 

1.60996-02 

2.600 

1. 44356-02 

1.42616-02 

2.700 

1.27936-02 

1.26406-02 

2.800 

1. 13446-02 

1.12086-02 

2.900 

1.00636-02 

9.94336-03 

3.000 

8.93066-03 

8.8249E-03 

3. lOU 

7.929CE-03 

7.8354E-03 

3.200 

7.04256-03 

6.9596E-03 

3.300 

6.25746-03 

6.18406-03 

3,400 

5.56196-03 

5.49696-03 

3.500 

4. 94546-03 

4. 88776-03 

3.600 

4.39866-03 

4.34756-03 

3.700 

3.9136E-03 

3.86826-03 

3. BOO 

3.4831E-03 

3.44286-03 

3.900 

3.10096-03 

3.06516-03 

4.000 

2. 76146-03 

2.7296E-03 

4. 100 

2.4597E-03 

2. 43146-03 

4.200 

2.19166-03 

2 . 1664E-03 

4.300 

1 .95316-03 

1 .93086-03 

4.400 

l,74HE-03 

1 .72126-03 

4.500 

1.5524E-03 

1.53485-03 

4.600 

1.3845E-03 

1.363 86-01 

4. 700 

1.2351E-03 

1.221 16-03 

4.v800 

1 .1020E-G3 

1.0895E-03 

4.900 

9.33426-04 

9.7230E-04 

5.000 

8.7780E-04 



0.02 


A.8097E-01 
4.0219E-01 
3.4070e-0l 
2.9084E-01 
2.4964E-01 
2.1518E-01 
1.8612E-01 
U61A^E-01 
1.4037E-01 
1 .2231E-01 
1.0677E-01 
9.3352E-02 
8.1744E-02 
7.1674E-02 
6.2921E-02 
5.5297E-02 
4.8647E-02 
4.2836E--02 
3.7752E-02 
3.3299E-02 
2.9392E-02 
2-5963E-02 
2.2948E-02 
2.0297E-02 
I .7962E-02 
1.5904E-02 
1.4090E-02 
1.2489E-02 
1 ,10 75E-02 
9.8252E-03 
8.7204E-03 
7.7430E-03 
6.877BE-03 
6.1115E-03 
5.4326E-03 
4.8307E-03 
4.2969E-03 
3.8233E-03 
3.-t030E-03 
3.0297E-03 
2.6981E-03 
2.4035E-03 
2.l4l6E-03 
1.9087E-03 
1.7016E-03 
1.5173E-03 
1.3532E-03 
1.2072E-03 
1.0772E-03 
9.&1 3lE-0^ 


0.03 

4.7200E-01 
3.9540E-01 
3.3525E-01 
2.8637E-01 
2.4591E-01 
2.1205E-01 
1.8347E-01 
1.5918E-01 
1.3844E-0L 
1.2065E-01 
1.0533E-01 
9.2115E-02 
8.0672E-02 
7.0743E-02 
6.2U0E-02 
5.4591E-02 
4.8030E-02 
A.2297E-02 
3.7280E-02 
3.2885E-02 
2.9029E-02 
2. 564 4 E- 02 
2.266BE-02 
2.0050E-02 
1.7744E-02 
1.5713E-02 
1.3921E-02 
1.2339E-02 
1.0943E-02 
9.7085E-03 
8.6172E-03 
7.6516E-03 
6.7969E-03 
6.0399E-03 
5.3691E-03 
4,7744E-03 
4.Z470E-03 
3.7790E-03 
3.3636E-03 
2.9948E-03 
2.6671E-03 
2.3759E-03 
2.1171E-03 
1.B869E-03 
1.6822E-03 
1.5000E-03 
1.3379E-03 
1.1935E-03 
1.0650b-03 
9.5045E-04 


0.04 

4.6332E-01 
3.8876E-01 
3.2991E-01 
2.8198E-01 
2.4226E-01 
2.0897E-01 
l,e086E-Ol 
1.5695E-01 
1.3653E-01 
1. 19 DIE- 01 
1.0392E-01 
9.0B95E-02 
7.9615E-02 
6.9825E-02 
6.1311E-02 
5.3894E-02 
4.7421E-02 
4.1764E-02 
3.6814E-02 
3.2476E-02 
2.8670E-02 
2.5328E-02 
2.2391E-02 
l.9(i06E-02 
1.7529E-02 
1.5523E-02 
1.3754E-02 
1.2192E-02 
1.0012E-02 
9.5933E-03 
8.5152E-03 
7.5614E-03 
6.7170E-03 
5.9691E-03 
5.3064E-03 
4.7iaaE-03 
4.1976E-03 
3.7352E-03 
3.32476-03 
2.9602E-03 
2.63646-03 
2.3486E-03 
2.0928E-03 
I .8653E-03 
1.6630E-03 
1.4829E-03 
1.3227E-03 
I .1800E-03 
I .0529E-03 
9.3971E-04 


0.05 

4.5492E-01 

3.8228E-01 
3.2468E-01 
2.7767E-01 
2.3866E-01 
2.0595E-01 
1.7829E-01 
1.5477E-01 
1.3466E-01 
1.1740E-01 
1.0253E-01 
8.9693E-02 
7.8572E-02 
6.8919E-02 
6.0523E-02 
5.3206E-02 
4.6821E-02 
4.1239E-02 
3.6354E-02 
3.20736-02 
2.8316E-02 
2.5017E-02 
2.2117E-02 
1.9565E-02 
1.7317E-02 
1.53366-02 
l,35S8E-02 
1.2046E-02 
1.0684E-02 
9.4794E-03 
8.4145E-03 
7.4723E-03 
6.6381E-03 
5.89926-03 
5.2444E-03 
4.6638E-03 
4.1489E-03 
3.69196-03 
3.2063E-03 
2.9261E-03 
2 .606 1 E-03 
2.3217E-03 
2.06896-03 
1.84406-03 
1.6440E-03 
1.46606-03 
1.30766-03 
1.1O66E-03 
1.04lUt-03 
9.29096-04 


0.06 

4.4676E-01 

3.7594E-01 
3.1956E-01 
2.7344E-01 
2.35136-01 
2.0297E-01 
1.7577E-01 
1.5261E-01 
1. 32816-01 
1.15816-01 
1.01166-01 
8. 8 5 086-02 
7.75456-02 
6.30266-02 
5.97456-02 
5.25286-02 
4.62286-02 
4.07216-02 
3.590CE-02 
3. 16756-02 
2.79676-02 
2.4710E-02 
2.10476-02 
1.93276-02 
1.71066-02 
I. 51516-02 
1.34256-02 
1.1902E-02 
1.0556E-02 
9.3669E-03 
8.31506-03 
7.3842E-03 
6.5601E-03 
5. 83016-03 
5. 1831E-03 
4.6095E-03 
4. 10076-03 
3.6492E-03 
3.2483E-03 
2.89246-03 
2.57616-03 
2.2950E-03 
2.04526-03 
1.8230E-03 
1.6253E-03 
1.4494E-03 
1.29286-03 
1 . l53'fE-03 
1.02926-03 
9. 18396-04 


0.07 

4.3683E-01 
3.6974E-01 
3.14536-01 
2.6929E-01 
2.31666-01 
2.00046-01 
1.73286-01 
1.50496-01 
1. 30996-01 
1.14256-01 
9,98146-02 
8.7340E-02 
7. 65326-02 
6.71456-02 
5.89786-02 
5. 18596-02 
4.56446-02 
4.02106-02 
3.54526-02 
3.12826-02 
2.76226-02 
2.44076-02 
2. 15806-02 
1.90926-02 
1.69016-02 
1.49696-02 
1.3264E-02 
1.17606-02 
1.0431E-02 
9.2558E-03 
8.2167E-03 
7.2972E-03 
6.4830E-03 
5.7618E-03 
5.1226E-03 
4.5558E-03 
4.0531E-03 
3.60696-03 
3.2108E-03 
2.8590E-03 
2.5465E-03 
2.2687E-03 
2.0218E-03 
1.8021E-03 
1. 60676-03 
1.4329E-03 
1.2731E-03 
1.1403E-03 
1.0176E-03 
9.0822E-04 


0.08 

4.3112E-01 
3.636aE-0l 
3.0961E-01 
2.6522E-01 
2.2825E-01 
1.97176-01 
1.70B4E-01 
1.48406-01 
1.29206-01 
1.12716-01 
9.8484E-02 
8.61896-02 
7. 55336-02 
6.62776-02 
5.82226-02 
5.11996-02 
4.50676-02 
3.97056-02 
3.50106-02 
3.08946-02 
2.72826-02 
2.41086-02 
2.13176-02 
1.88606-02 
1.66966-02 
1. 47896-02 
1.3105E-02 
1. 16196-02 
1.0307E-02 
9.14616-03 
8.11976-03 
7.2113E-03 
6.4069E-03 
5.69446-03 
5. 06286-03 
4.50286-03 
4.00606-03 
3.56516-03 
3.17376-03 
2.82616-03 
2.51726-03 
2.24276-03 
1.99866-03 
1.78156-03 
1.58846-03 
1.4166E-03 
I .26J6E-03 
1.1274E-03 
1.006GE-03 
8.9796E-04 


0.09 

4.2361E>0L 

3.5775E-01 
3.04786-01 
2.61226-01 
2.2490E-01 
1.9434E-01 
1.6843E-01 
1.4635E-01 
1.27446-01 
1.1 1196-01 
9.71736-02 
6.50546-02 
7.45486-02 
6.54206-02 
5.74766-02 
5.05486-02 
4.4498E-02 
3.92076-02 
3. 45746-02 
3.05116-02 
2,69436-02 
2.38126-02 
2.10576-02 
1.86316-02 
1.64956-02 
1.46116-02 
1.29486-02 
1.148 16-02 
1.U184E-02 
9.0377E-03 
8.02386-03 
7. 12646-03 
6.33176-03 
5. 62776-03 
5.00376-03 
4.45046-03 
3. 95956-03 
3.52396-03 
3.13716-03 
2.79356-03 
2.48836-03 
2.21706-03 
1.97586-03 
1.76126-03 
1.57036-03 
1.4005E-03 
1.24926-03 
1.1 14OE-03 
9.9467E-04 
8.8782E-04 
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i 

6-' 


l- 

i. 

J* 

i 

■ 

S 

1 


INTEGRAL EXPI-TAU/MUl * P SUB 2 


TAU 

0.00 

0.01 

0.02 

0.03 

0.0 

-3.62216-15 

1.77436-02 

2. 87376-02 

3.7307E-02 

0. 100 

7.03326-02 

7.30376-02 

7.54416-02 

7.75786-02 

0. 200 

8.70706-02 

8.78476-02 

8.8515E-02 

8. 90836-02 

0. 300 

9.08456-02 

9.08476-02 

9.0800E-02 

9.07066-02 

0.400 

B. 90196-02 

8.86596-02 

8.82766-02 

8.78706-02 

0.500 

8.45426-02 

8.401 16-02 

8.34706-02 

8.29186-02 

0.600 

7.88496-02 

7. 82456-02 

7.76386-02 

7.70276-02 

0.700 

7,26986-02 

7.20766-02 

7.1453E-02 

7.08326-02 

0.800 

6.65096-02 

6.58986-02 

6. 52906-02 

6.46836-02 

0.900 

6,05166-02 

5.99336-02 

5. 93546-02 

5.07786-02 

l.OCO 

5.4B46E-02 

5.42996-02 

5.37576-02 

5.32186-02 

1. 100 

4. 95606-02 

4. 90546-02 

4. 05526-02 

4.8054E-02 

1.200 

4.46846-02 

4;. 421 96-02 

4.37596-02 

4.33026-02 

1.300 

4.02196-02 

3.9794E-02 

3.93746-02 

3. 89576-02 

1.400 

3. 61516-02 

3.57656-02 

3.53B3E-02 

3.50056-02 

1.500 

3.2460E-02 

3.211 lE-02 

3,17656-02 

3.14236-02 

1.600 

2.91226-02 

2.8807E-Q2 

2.04946-02 

2.81866-02 

1.700 

2.61106-02 

2.58266-02 

2. 55456-02 

2.52666-02 

1.800 

2.339BE-02 

2.31426-02 

2.28396-02 

2.26386-02 

1.900 

2. 09506-02 

2. 07206-02 

2.05016-02 

2.02766-02 

2.000 

1.87676-02 

1.85616-02 

1. 83576-02 

1.31556-02 

2. 100 

1.68016-02 

1.661 66-02 

1. 64336-02 

1.62516-02 

2.200 

1 .50336-02 

1.48726-02 

1. 47076-02 

1.45456-02 

2.300 

1.34576-02 

1.33096-02 

1.31626-02 

1.30166-02 

2.400 

1.20426-02 

1.19096-02 

1.17776-02 

1. 16476-02 

2.500 

1.07746^02 

1.06556-02 

1 .05376-02 

1.04216-02 

2.600 

9.63996-03 

9.53336-03 

9.42786-03 

9.32346-03 

2.700 

8.62476-03 

8.52926-03 

8.43486-03 

8.34146-03 

2.800 

7.71626-03 

7.63086-03 

7.5464E-03 

7.46296-03 

2.900 

6 .90366-03 

6.82726-03 

6.75166-03 

6.67696-03 

3.000 

6.17666-03 

6, 10836-03 

6.04076-03 

5.97396-03 

3. 100 

5.52646-03 

5. 46526-03 

5.40486-03 

5.34506-03 

3.200 

4.94486-03 

4.890 16-03 

4.83616-03 

4.78266-03 

3.300 

4.42466-03 

4.37576-03 

4.32746-03 

4.27966-03 

3.400 

3.95946-03 

3.91576-03 

3.87246-03 

3.02976-03 

3.500 

3.5433E-03 

3.50426-03 

3.46556-03 

3.42736-03 

3. 600 

3.17126-03 

3. 13626-03 

3.1016E-03 

3. 06746-03 

3.700 

2.83836-03 

2. 80706-03 

2.7761E-03 

2.74556-03 

3. 300 

2.5406E-03 

2.51266-03 

2.48496-03 

2.45756-03 

3.900 

2.2742E-03 

2.24926-03 

2.2244E-03 

2.2000E-03 

4.000 

2.03606-03 

2. 01366-03 

1.9914E-03 

1.96956-03 

4. 100 

1.82286-03 

1. 80286-03 

1.78306-03 

1. 76346-03 

4.200 

1.63216-03 

1.61426-03 

1.59656-03 

1.57896-03 

4. 300 

1.46156-03 

1.44546-03 

1 .42966-03 

1.41396-03 

4.400 

1.30886-03 

1.29446-03 

1 .28026-03 

1.26626-03 

4.500 

1.17226-03 

1.159 36-03 

1. 14666-03 

1.13406-03 

4.600 

1.04996-03 

1.03B4E-03 

1. 02706-03 

1.01536-03 

4. 700 

9. 40436-04 

9.30136-04 

9. 1995E-C4 

9. 09896-04 

<♦.000 

8.42466-04 

B. 33246- 04 

8.24136-04 

8.15126-04 

4.900 

7.54756-04 

7 . 4 u5 1 6— 04 

7.38356-04 

7.30236-04 

5.000 

6 • 76246-0', 





HU « OHU FOR TAU EQUAL TO 


0.04 0.05 

4.^359E-02 5.032AE-02 
7.9477E-02 8.1164E-02 
8.9559E-02 8.9950E-02 
9.0571E-02 9.0396E-02 
8.7445E-02 6.7000E-02 
8.2358E-02 8.17896-02 
7.6'H'*E-02 7. 57986^02 
7.0211E-02 6.9590E-02 
6.4030Ei-02 6.3478E-02 
5.8205E-02 5.7636E-02 
5.26046-02 5.21536^02 
4.7560E-02 4,70716-02 
4.2849E-02 4.2401E-02 
3.8545E-02 3.81366-02 
3.4530E-02 3,42606-02 
3.1Q84E-02 3.07496-02 
2.78006-02 2.75776-02 
2.49916-02 2.471BE-02 
2.23916-02 2.21456-02 
2.0053Er02 1.90336-02 
1.79556-02 1.77576-02 
1. 60726-02 1.58956-02 
1.43856-02 1.42266-02 
1.28726-02 1.27306-02 
1.15186-02 1.13916-02 
1.03056-02 1.01916-02 
9.22026-03 9.11826-03 
8.24916-03 8.15786-03 
7.38036-03 7.29866-03 
6.60306-03 6.52996-03 
5.90786-03 5.84246-03 
5.28596-03 5.22756-03 
4.72976-03 4.67756-03 
4.2323E-03 4.18556-03 
3.78746-03 3.74566~03 
3. 38956-03 3.35216-03 
3.03366-03 3.00016-03 
2.71526-03 2.68536-03 
2.43056-03 2,40376-03 
2.17576-03 2.15186-Oi 
1. 94796-03 1.92646-03 
1.74406-03 1.72486-03 
1.56166-03 1.54446-03 
1. 39846-03 1.38306-03 
1.25236-03 1.23866-03 
1.12166-03 1. 10936-03 
1.00466-03 9.93646-04 
8. 99936-04 8.90066-04 
8.06216-04 7.97396-04 
7.22306-04 7.14416-04 


0.06 0.07 

5.5456E-02 5.9920E-02 
8.26606-02 8.3983E-02 
9.0263E-02 9.05046-02 
9.01846-02 8.99386-02 
8.65396-02 8.60616-02 
8.12146-02 8. 06316-02 
7.51016-02 7.45616-02 
6.89716-02 6.83536-02 
6.28806-02 6. 22856-02 
5.70706-02 5. 65096-02 
5.16266-02 5.11046-02 
4.6585E-02 4.61046-02 
4. 19566-02 4.15166-02 
3.77316-02 3.73306-02 
3.38936-02 3.3529E-02 
3.04176-02 3.00886-02 
2.72786-02 2.698 lE-02 
2.44486-02 2.41826-02 
2.19036-02 2. 16636-02 
1.96156-02 1.94006-02 
1.75626-02 1.73686-02 
1.5720E-02 1.55466-02 
1.40696-02 1.39136-02 
1.25896-02 1.24506-02 
1. 12656-02 1. 11406-02 
1.00796-02 9.96726-03 
9.01736-03 8.91756-03 
8.06756-03 7,97826-03 
7.21786-03 7.13796-03 
6.45776-03 6. 38626-03 
5.77786-03 5,71396-03 
5.16976-03 5.11256-03 
4.62586-03 4.57466-03 
4. 1393E-03 4.09366-03 
3.70426-03 3.6&33E-03 
3. 31516-03 3,27856-03 
2. 96706-03 2.93436-03 
2,65576-03 2.62646-03 
2.37726-03 2. 35106-03 
2.12816-03 2.10476-03 
1.90536-03 1.88436-03 
1.70596-03 1.68716-03 
1.52756-03 1.51076-03 
1.36796-03 1.35286-03 
1. 22506-03 1.21166-03 
1.09726-03 1.08526-03 
9.82766-04 9.72006-04 
8.00356-04 8.70726-04 
7.3b67E— 04 7. 80056-04 
7. 06616-04 6.98996-04 


0.06 0.09 

6.3833E-02 6.7281E-02 
B.5150E-02 8.6175E-02 
9.0676E-02 9.0790E-02 
8. 96606-02 8.93536-02 
e. 55686-02 8.50616-02 
8.00426-02 7.94406-02 
7.39416-02 7.33206-02 
6.77376-02 6.71226-02 
6.16926-02 6.11036-02 
5.59516-02 5.53966-02 
5.05056-02 5.00716-02 
4.56266-02 4.51536-02 
4.10796-02 4.06476-02 
3.t)933E-02 3.65406-02 
3.31696-02 3.2813E-02 
2.97636-02 2.94416-02 
2.66086-02 2. 63906-02 
2.39186-02 2.36566-02 
2.14266-02 2.11916-02 
1.91876-02 1.89766-02 
1. 71776-02 1.69386-02 
1. 53756-02 1. 52056-02 
1.37606-02 1.36086-02 
1,23136-02 1.21766-02 
1.10176-02 1.0895E-02 
9.85696-03 9. 74786-03 
8.81006-03 8172126-03 
7.88996-03 7.80266-03 
7.05696-03 6. 98086-03 
6.3156E-03 6. 24576-03 
5.65076-03 5.58026-03 
5.05606-03 5. 00016-03 
4.52416-03 4.47416-03 
4.04846-03 4.0036E-03 
3.62296-03 3.58296-03 
3.24236-03 3.20666-03 
2.90206-03 2.87006-03 
2.59756-03 2.56896-03 
2.32526-03 2.29966-03 
2. 08156-03 2.05066-03 
1.86366-03 1.84316-03 
1. 66866-03 1.65036-03 
1. 49416-03 1.47776-03 
1.33806-03 1.32336-03 
1. 19836-03 1.18526-03 
1.07336-03 1.06156-03 
9.61366-04 9. 50036-04 
8.61196-04 8.51776-04 
7.71536-04 7.63096-04 
6.91256-04 6.83706-04 


8.2 Output from SITBB ; Note; Only a selected portion of the output is 
reproduced for the set no. 5 (page 127), and set no. 6 (pages 128, 129, 
and 130). (See page 124.) 
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LAVER 

GECMETPIC 

PRESSURE 

OZONE 

STRATOSPHERIC 

TROPOSPHERIC 

NUMBER 

THICKNESS 

THICKNESS 

AMOUNT 

OUST CONTENT 

OUST CONTENT 


1 

10.00 

0.17 

0.00002 

0.0 

0.0 

2 

10.00 

0.74 

0.00016 

0.0 

0.0 

3 

5.00 

O.BO 

0.00290 

1.00E4^03 

0.0 

4 . 

5.00 

1.53 

0.00722 

2.00E*03 

0.0 

5 

5.00 

3.16 

0.01750 

5.00E*03 

0.0 

6 

5.00 

6.55 

0.03840 

1.10E4-04 

0.0 

7 

5.00 

13.75 

0.06650 

3.40E+04 

0.0 

8 

l.OO 

4.30 

0.01500 

2.40E+04 

0.0 

9 

1.00 

5.10 

0.01460 

4 .50E+04 

0.0 

10 

1.00 

6.00 

0.01360 

6.80E+04 

0.0 

ll 

1.00 

7.20 

0.01220 

l.OOE+05 

0.0 

12 

1.00 

8.30 

0.01120 : 

1.24E+05 

0.0 

13 

1.00 

9.60 

0.00920 

1.24E+05 

0.0 

14 

1.00 

11.20 

0.00710 

1.14E+05 

O.C 

15 

1.00 

12.60 

0.00510 

1.03E+05 

0.0 

16 

1.00 

14.50 

0.00400 

9.40E+04 

0.0 

17 

1.00 

17.50 

0.00240 

8.50E-*-04 

0.0 

18 

1.00 

21.50 

0.00120 

5.00E+04 

1.0064^04 

19 

1.00 

24.50 

0.00100 

1.50E+04 

3.00E4^04 

20 

1.00 

27.50 

0.00080 

1.00E«-03 

6.00E+04 

21 

1.00 

31.50 

0.00070 

0.0 

1.00E405 

22 

1.00 

35.50 

0.00065 

0.0 

l.OOE+05 

23 

1.00 

40.50 

0.00065 

0.0 

l.OOE+05 

24 

1.00 

45.00 

0.00080 

0.0 

l.OOE+05 

25 

1.00 

51.00 • 

0.00125 

O.C 

1.00E405 

26 

l.CO 

61.00 

0.00150 

0.0 

1.00E*05 

27 

1.00 

69.00 

• 0.00190 

0.0 

3.00E*05 

28 

1.00 

75.00 

0.00230 

0.0 

6.00E405 

29 

1.00 

87.00 

0.00245 

0.0 

1.00E406 

30 

1.00 

97.00 

0.00265 

0.0 

3. 00 E 406 

31 

1.00 

100.00 

0.00265 

0.0 

8.90E406 

32 

1.00 

111.00 

0.00240 

0.0 

2.55E407 
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LECFNOiX IC!t»4TS «EPt< I Nf, PHASE FUNCTION FOR THE STRATOSPHERIC AEROSOL AT WAVELENGTH OF 0.31250 


L 

■ ^ L 

L * 1 

t*2 

L«-3 

L44 

L*5 

L*6 

L*7 

L48 

L49 

0 

10 

20 

30 

40 

1.0000E*00 
1.2401E*00 
7.6821E-02 
2.2644E-03 
4. 5476E— 05 

2.3l<»2fc*dO 
9.8423L-01 
5.308 ie-02 
1 .5379E-03 
2.9891E-05 

3.0219E*00 

7.80I2E-01 

3.9563E-02 

1.0657E-03 

1.9627E-05 

3.1603E+00 

5.9440E-01 

2.7126E-0Z 

7.21716-04 

1.2661E-05 

3.0852E*00 

4.6492E-01 

1.9891E-02 

4*95l7E-04 

8.1115E-06 

2.8527E+00 

3.4194E-01 

1.3583E-02 

3.3396E-04 

0.0 

2. 5278E+00 
2.6474E-01 
9.80086-03 
2.27076-04 
0.0 

2.2019E*00 

1.8928E-01 

6.67956-03 

1.52256-04 

0.0 

1.845BE400 
1.4500E-01 
4.7466E— 03 
1.0258E-04 
0.0 

1.5318E400 

1.0156E-01 

3.2299E-03 

6.82276-05 

0.0 



- 






-- -- 





LEGENDRE 

COEFFICIENTS 

REPRESENTING 

PHASE FUNCTION FOR THE 

TROPOSPHERIC 

AEROSOL AT 

WAVELENGTH 

OF 0.31250 


L 

L 

L+1 

L+2 

L+3 

L+4. 

L+5 

L+6 

L+T^ 

L+8 

L+9 

0 

l.OOOOE^OO 

2.4521E+00 

3. 46436+00 

4.0539E+00 

4.50906+00 

4.78296+00 

4.9479E+00 

5.02126+00 

4.9938E+00 

4.9218E+00 

10 

4.781 3E>00 

4.6 1486 +00 

4.4 1866+00 

4.2001E+00 

3.9837E+00 

3.7452E;+b0 

3, 52 82 E+ 00 

3.2916E+00 

3.0641E+00 

2.6626E+00 

20 

2.66996+00 

2.46986+00 

2.29486+00 

2. 11826+00 

1.96186+00 

1.80836+00 

1.6705E+00 

1.5382E+00 

1.4183E+C0 

1.3050E+00 

30 

1.202UE+00 

1.10526+00 

1.01676+00 

9.34356-01 

8. 58906-01 

7. 89056-01 

7.25b3E-01 

6.65886-01 

6.11696-01 

5. 61696-01 

40 

5.1591E-01 

4.73716-01 

4.350BE-01 

3.99506-01 

3.66936-01 

3.36946-01 

3.0950 E-01 

2.84256-01 

2.61136-01 

2.39886-01 

50 

2.2040E-01 

2.0251E-01 

1.86106-01 

1.71046-01 

1.57226-01 

1.44536-01 

1.32886-01 

1.22196-01 

1 .12386-01 

1.03376-01 

6 0 

9.5392E-02 

8.7492E-02 

R:.0514E-02 

7.41106-02 

6.82166-02 

6.27996-02 

5.78216-02 

5.32446-02 

4.90376-02 

4.51666-02 

70 

4. 160 9E- 02 

3.18 3366-02 

3.53256-02 

3.25546-02 

3.00046-02 

2.76576-02 

2.54966-02 

2.35066-02 

2.16746-02 

1.99866-02 

80 

I;84?lE-02 

1.69986-02 

1.56786-02 

1.44606-02 

1.33386-02 

1.2304E-02 

1.13506-02 

1.04706-02 

9.65786-03 

8.90886-03 

90 

8.21776-03 

7.57996-03 

6.99126-03 

6.44786-03 

5.94616-03 

5.48306-03 

5. 05526-03 

4.66026-03 

4.29526-03 

3.958UE-03 

100 

3.64656-03 

3.35876-03 

3.09286-03 

2.84716-03 

2.62016-03 

2.41036-03 

2.21656-03 

2.03746-03 

1.87196-03 

1.71906-03 

no 

1.57776-03 

1.44726-03 

1.32666-03 

1.21526-03 

1.11246-03 

1.01756-03 

9. 29 846-04 

8.4397E-04 

7.74366-04 

7. 05566-04 

120 

6.42126-04 

5.63676-04 

5.29846-04 

4.80276-04 

4. 34686-04 

0.0 

0.0 

0.0 

U.O 

0.0 
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VARIOUS NORMAL OPTICAL THICKNESSES OF THE ENURE ATMOSPHERIC MODEL : 199 

FOR THE INClOENrRAOIATlON OF WAVELENGTH : 0.31250 


RAYLEIGH SCATTERING 


1.02000 

OZONE ABSORPTION 


0.41750 

STRATOSPHERIC AEROSOL SCATTERING 


0.00201 

STRATOSPHERIC AEROSOL ABSORPTION 


0.00073 

tropospheric aerosol SCATTERING 


0.12051 

TROPOSPHERIC AEROSOL ABSORPTION 


0.06846 

TOTAL 

• 

« 

1.62922 


ATMOSPHERIC MODEL NUMBER X 199 

SURFACE PRESSURE IMB) ; 1000.00 TOTAL OZONE AMOUNT CATM-CMI : 0.250 


OUST data 


TYPE OF 
AEROSOLS 

SIZE DISTRIBUTION 
FUNCTION 

PART OF 
REAL 

REFRACTIVE INDEX 
IMAGINARY 

TOTAL 

AMOUNT 

STRATOSPHERIC 

HAZE X H 

1.500 

0.050 

l.00E4^06 

TROPOSPHERIC 

HAZE I L 

1.500 

0.050 

4.00E*07 
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THIS SET OF COMPUTATIONS IS DONE WITH 


CONDITIONING POINT I IS AT THE OPTICAL DEPTH 

CONDITIONING POINT 2 IS AT THE OPTICAL DEPTH 

CONDITIONING POINT 3 IS AT THE OPTICAL DEPTH 

CONDITIONING POINT ; IS AT THE OPTICAL DEPTH 

CONDITIONING POINT 5 IS AT THE OPTICAL DEPTH 

CONDITIONING POINT 6 IS AT THE OPTICAL DEPTH 

CONDITIONING POINT 7 IS AT THE OPTICAL DEPTH 

CONDITIONING POINT 8 IS AT THE OPTICAL DEPTH 

CONDITIONING POINT 9 IS AT THE OPTICAL DEPTH 

CONDITIONING POINT 10 I S AT THE OPTICAL DEPTH 

CONDITIONING POINT 11 IS AT THE OPTICAL DEPTH 

CONDITIONING POINT 12 IS AT THE OPTICAL DEPTH 

CONDITIONING POINT 13 IS AT THE OPTICAL DEPTH 

THE TOP HALF OF THE F SUB J MATRIX INVERTED AFTER 2 

THE TOP HALF OF THE F SUB J MATRIX INVERTED AFTER 2 

THE TOP HALF OF THE F SUB J MATRIX INVERTED AFTER 2 

THE TOP half OF THE F SUB J MATRIX INVERTED AFTER 2 

THE TOP HALF OF THE F SUB J MATRIX INVERTED AFTER 2 

The TOP HALF OF THE F SUB J MATRIX INVERTED AFTER 2 

THE TOP HALF OF THE F SUB J MATRIX INVERTED AFTER 2 

THE TOP HALF OF THE F SUB J MATRIX INVERTED AFTER 2 

THE TOP Half of the F sub j MATRIX INVERTED AFTER 2 

THE TOP HALF OF THE F SUB J MATRIX INVERTED AFTER 2 

THE TOP half OF THE F SUB J MATRIX INVERTED AFTER 2 

THE TOP HALF OF THE F SUB J MATRIX INVERTED AFTER 2 

LINEAR SYSTEM SOLVED FUR THETA SUB 2FB0 = 0.0 

LINfAR SYSTFn StiLVEU FOR THETA SUB ZERO = A5.00 


NUMBER OF TERMS 


0.0 

GIVEN 

BY 

THE 

LEVEL 

NUMBER 

1 

0.14170 

GIVEN 

BY 

THE 

LEVEL 

NUMBER 

12 

0.27849 

GIVEN 

BY 

THE 

LEVEL 

NUMBER 

20 

0.41822 

GIVEN 

BY 

THE 

LEVEL 

NUMBER 

30 

0.54482 

GIVEN 

BY 

THE 

LEVEL 

number 

41 

0.68604 

GIVEN 

BY 

THE 

LEVEL 

NUMBER 

50 

0.82091 

GIVEN 

BY 

THE 

LEVEL 

NUMBER 

58 

0.96U1 

GIVEN 

BY 

THE 

LEVEL 

NUMBER 

66 

1.08648 

GIVEN 

BY 

THE 

LEVEL 

NUMBER 

73 

1.22345 

GIVEN 

BY 

THE 

LEVEL 

NUMBER 

BO 

1.37295 

GIVEN 

BY 

THE 

LEVEL 

NUMBER 

88 

1.51036 

GIVEN 

BY 

THE 

LEVEL 

NUMBER 

95 

1.62920 

GIVEN 

BY 

the 

LEVEL 

NUMBER 

101 


ITERATIONS FOR THE CONDITIONING POINT NUMBER 2 

ITERATIONS FOR THE CONDITIONING POINT NUMBER 3 

ITERATIONS FOR THE CONDITIONING POINT NUMBER 6 

ITERATIONS FOR THE CONDITIONING POINT NUMBER 5 

ITERATIONS FOR THE CONDITIONING POINT NUMBER 6 

ITERATIONS FOR THE CONDITIONING POINT NUMBER 7 

ITERATIONS FOR THE CONDITIONING POINT NUMBER 8 

ITERATIONS FOR THE CONDITIONING POINT NUMBER 9 

ITERATIONS FOR THE CONDITIONING POINT NUMBER 10 

ITERATIONS FOR THE CONDITIONING POINT NUMBER ll 

ITERATIONS FOR THE CONDITIONING POINT NUMBER 12 

ITERATIONS FOR THE CONDITIONING POINT NUMBER 13 

AFTER 2 NUMBER OF ITERATIONS. 

after 2 number oe iterations. 
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MODEL : 

199 

WAVELENGTH 

: 0.3125 

LAY. 

DIRECT 

DIFFUSE 

DIFFUSE 

NET 

NUM. 

FLUX 

DOWNWARD 

UPWARD 

FLUX 

1 

3.1916E+00 

1.5 6 38 £-07 

3.6659E-01 

2.7750E+00 

3 

3.1377Et00 

1.72896-03 

3.6558E-0I 

2.7739E+00 

5 

3.077aE+00 

5.8739E-03 

3.7203E-O1 

2.7108E+00 

7 

2.7757E«^00 

1.9831E-D2 

9.2313E-01 

2.3729E+00 

9 

2.3780E+00 

9.0289E-02 

5.1779E-01 

1.9005E+00 

11 

2.2923E+00 • 

5.3499E-02 

5.5661E-01 

1.7392E+00 

13 

2.1213E+00 

7.29B6E-02 

5.9023E-01 

1.6090E+00 

15 

2.0196E«^00 

1.0042E-01 

6. 1195E-01 

1.5081E+00 

17 

1.9339EfaO 

1.3719E-0I 

6. 1772E-01 

1.9539E+00 

19 

1.8566E+00 

1.9010E-01 

6.0555E-01 

l.'iSllE+OO 

21 

1.7451E+00; 

2.54aaE-0l 

5.8057E-01 

1.9199E^00 

23 

1.62^6E*00 

3.2837E-01 

5.93l3Ei-0l 

1.9099E4-00 

25 

1.9039E+-OO 

9 .0S83E-01 

9.8993E-01 

1.3993E+00 

27 

1.316AE+00 

9.8 199E-01 

9.1528E-01 

1.3B26E+00 

29 

1.1239E+00 

5.9379E-01 

3. 1271E-01 

1.3599E+00 

31 

9.0636E-01 

5.7759E-01 

1.7198E-01 

1.3120E+00 

33 

6.1601E-01 

5.5908E-01 

9.4376E-06 

1.1751E+00 


MODEL : 199 WAVELENGTH : 0.3125 

LAY. DIRECT DIFFUSE DIFFUSE NET 


IM. 

FLUX 

DOWNWARD 

UPWARD 

FLUX 

1 

2.2219E+00 

1.6999E-07 

2.7050E-01 

1.9509E+00 

3 

2.2176E*00 

1.6666E-03 

2.6939E-01 

l,9999E+^00 

5 

2.1530E+00 

5.6112E-03 

Z*7920E-01 

1.8899E+00 

7 

1.8699E+00 

1.8262E-02 ! 

3. 1005E-0I 

1.5731E+00 

9 

1.9989E-»-00 

3:.53l9E-02 

3.7919E-01 

1. 1551E*^00 

11 

1.3796E+00 

9.5991E-02 

9.0757E-01 

1.0179 E+00 

13 

1.2757 E+00 

6.1535E-02 

9.3186E-01 

9.0534E-01 

15 

1.1909E+00 

8.3283E-02 

9.9686E-01 

8.2680E-01 

17 

1.1197e*-00 

1.1219E-01 

9.9990E-01 

7.8253E-0I 

19 

1.0/«92E + 00 

1.5337E-01 

9.3763E-01 

7.6990E-0I 

21 

9.6878E-01 

2.027aE-0l 

9. 1568F-01 

7.5588E-01 

23 

8.7586E-01 

2.5713E-01 

3.8923E-01 

7.9876E-01 

25 

7.7079E-01 

3.1202E-01 

3.9193E-01 

7.9138E-01 

27 

6.5089E-01 

3.61 95E-01 

2.a^03E-01 

7.2881E-01 

29 

5.2067B-01 

3.9770E-01 

2.0917E-01 

7.0919E-01 

31 

3.8932E-01 

9.0767E-01 

1.I219E-01 

6.7985E-01 

33 

2.2287E-01 

3.6893E-01 

-3.3591E-05 

5.91 33E-01 


theta sub zero 


0.0 


LAY. 

DIRECT 

DIFFUSE 

DIFFUSE 

NET 

NUM. 

FLUX 

DOWNWARD 

UPWARD 

FLUX 

2 

3.1909E+00 

3.2266E-09 

3.6638E-01 

2.7799E+00 

4 

3.1200E+00 

3.1970E-03 

3.6796E-01 

2^ 7558 E+00 

6 

2.9795E+00 

1.0916E-02 

3.8723E-01 

2.6032E+00 

8 

2.9992E+00 

3.59i5E-02 

9.9831E-01 

1.9863E+00 

10 

2.3083E+00 

9.6239E-02 

5.3755E-01 

1.8170E+00 

12 

2. 1809E + 00 

6.2977E-02 

5.7396E-01 

1.66B9E+00 

19 

2.0679E+00 

8.5971E-02 

6ir03l5E-01 

1.5502E+00 

16 

1.9769E+00 

1.1755E-01 

6.1639E-01 

1.9776E+00 

18 

1.B916E+00 

1,6112E-01 

6.1913E-01 

1.9386E+00 

20 

1.7977E+00 

2.2199E-01 

5.9939E-01 

1.9297E+00 

22 

1.6071E+00 

2.9088E-01 

5.6356E-01 

1.9195E+00 

29 

1.55-69 E+00 

3.6730E-0I 

5.1899E-01 

1.9053E+00 

26 

1.9051E+00 

9.9393E-01 

9.5675E-01 

1.3918E+00 

28 

1.2213E+00 

5.1587E-01 

3.6686E-01 

1.3703E+00 

30 

1.0199E+00 

5.6597E-01 

2.9719E-01 

1.3377E+00 

32 

7.8131E-01 

5.7753E-01 

9.3211E-02 

1.2656E+00 


THETA SUB ZERO » 95.00 


LAY. 

DIRECT 

DIFFUSE 

DIFFUSE 

NET 

NUM. 

FLUX 

DOWNWARD 

UPWARD 

FLUX 

2 

2.2208E+00 

3.1107E-09 

2.7028B-01 

1.950BE+00 

9 

2.1999E+00 

3.0730E-03 

2.J057E-01 

1.9329E+00 

6 

2.0612E+00 

1.0300E-02 

2.8929E-01 

1.7872E+00 

6 

1.5926E+00 

3.1398E-02 

3.6988E-01 

1.2291E+00 

10 

1.9373E+00 

9.0191E-02 

3.9365E-01 

1.0838E+00 

12 

1.3262E+00 

5.3176E-02 

9.2019E-01 

9.5923E-01 

19 

1.2306E+00 

7, 1937E-02 

9.9099E-01 

8.6I09E-01 

16 

1. 1595E+00 

9.6786E-02 

9.9933E-01 

B.0198E-01 

18 

1.0855E+00 

1.3088E-01 

9.9552E-01 

7.7081E-01 

20 

1.0102E+00 

1.7795E-01 

9.2768E-01 

7.5998E-01 

22 

9.2375E-01 

2.2965E-01 

9.0122E-01 

7.5218E-01 

29 

8.2992E-01 

2.8510E-01 

3.6919E-01 

7.9532E-01 

26 

7.1368E-01 

3.3799E-01 

3.1356E-01 

7.355bE-01 

28 

S.8555E-01 

3.B270E-01 

2.98l7t-0L 

7.20086-01 

30 

9.5378E-01 

9.0690E-01 

1.6327E-01 

6.9791E-01 

32 

3.1161E-01 

3.9751E-01 

6.0007E-02 

6.9911E-01 



MODEL ; 

199 

WAVELENGTft 

■t 0.3125 

LAY. 

DIRECT 

DIFFUSE 

DIFFUSE 

NET 

NUM. 

FLUX 

DOWNWARD 

UPWARD 

FLUX 

I 

5.6712E-01 

l.2^37E-07 

4.2770E-02 

5.2A35E-01 

3 

5.633aE-0l 

1.4960E-03 

4.1391E-02 

5.2349E-01 

5 

5.0739E-01 

<*.8539E-03 

3.9532E-02 

^.727 IE- 01 

7 

2.9063b-0l 

1.2690E-02 

3.6903E-02 

2.6691E-01 

9 

1.2691E-01 

1.7030E-02 

3.6329E-02 

1.0561E-01 

11 

9.3000E“02 

1.8535E-02 

3.‘i274E-02 

7.2262E-02 

13 

6.9552E-02 

2.0510E-02 

3.9672E-02 

5.0390E-02 

15 

5.<i0l7E-02 

2.3059E-02 

3.9106E-02 

3.7971E-02 

17 

«.330OE-O2 

2.6252E-02 

3.7288E-02 

3.2349E-02 

19 

3.A35^e-t)?, 

3.U391E-02 

3.389^E-02 

3.0351E-02 

21 

2.57^9E-02 

3.4<V09E-02 

2.9634E-02 

3.0525E-02 

23 

1.70O5E-O2 

3.7532E-02 

2.4953E-02 

3.03d9E-02 

25 

l.lllTE-02 

3.0139E-32 

2.0C69E-02 

3.0187E-02 

27 

5.9316E-03 

3.H75aE-02 

1.5101E-02 

2.9589E-Q2 

29 

2.574aE-03 

3.6172E-02 

1.0150E-02 

2.8597E-02 

31 

8.2206E-04 

3.l'*18E-02 

5.0950E-03 

2.7195E-02 

33 

l.0310E-0^ 

2.3202E-02 

-1.3750E-06 

2.3307E-02 


N) 

vi> 



MODEL : 

199 

WAVELENGTH 

.* 0.3125 

LAY. 

DIRECT 

DIFFUSE 

DIFFUSE 

NET 

NUM. 

Flux 

DOWNWARD 

UPWARD 

FLUX 

1 

4. 1006E-01 

1.2S3i£-07 

2.7085E-02 

3.8297E-01 

3 

4.0642E-01 

1.9808E-03 

2.5686E-02 

3.8222E-01 

5 

3.5254E-01 

9.7378E-03 

2.3352E-02 

3.3393E-01 

7 

l.659aE-01 

1.1373E-02 

1.8671E-02 

1.5868E-01 

9 

5.499ie-02 

1.34A3E-02 

1.7256E-02 

5.0679E-02 

1 1 

3.6019E-02 

1.3807E-02 

1.7242E-02 

3.2584E-02 

13 

2.4550E-02 

1.9341E-02 

1.7070E-02 

2.1822E-02 

15 

1.7666E-02 

1.5 135E-02 

1.6569E-02 

1.6231E-02 

17 

1 .33 39E-02 

1.6213E-02 

1.5589E-02 

1.3959E-02 

19 

9.8BA7E-03 

1.7635E-02 

1.3982E-02 

1.3538E-02 

21 

6.B3UE-03 

1.8B59E-0? 

1.2090E-02 

1.3570E-02 

23 

4.1960E-03 

1.9547E-92 

1.0122E-02 

1.3622E-02 

25 

2.2559E-03 

1.9514E-02 

8. 1752E-03 

1 .3594E-02 

2 7 

9.79dOE-09 

l.«tj2dE-02 

6. 2 38 16-03 

l.33bUE-02 

20 

3.2?C8E-U‘t 

l.t. 023 6-02 

4.2>3B3E-03 

1.29i7t-02 

31 

6.9SSDE-05 

1.4476H-02 

2. 1373E-03 

l.235fiE-02 

33 

9.221RE-06 

1.0f.52E-02 

7. 1708F-07 

1.0655E-02 


THETA SUB _^R0 t 79.60 


LAY. 

DIRECT 

DIFFUSE 

DIFFUSE 

NET 

NUN. 

FLUX 

DOWNWARD 

UPWARD 

FLUX 

2 

5.6648E-01 

2.8093E-04 

4.2510E-02 

5.2425E-01 

4 

5.4625E-01 

2.7320E-03 

4.0636E-02 

5.0835E-01 

6 

4.2576E-01 

8.3219E-03 

3.8033E-02 

3.9605E-01 

8 

1.4852E-01 

1.6372E-02 

3.7809t-02 

li^2708E-0l 

10 

1.0840E-01 

1.7738E-02 

3.8841E-02 

8.7297E-02 

12 

8.0295E-02 

1.9495E-02 

3.9515E-02 

6.0274E-02 

14 

6.0957E-02 

2. 1682E-02 

3.9562E-02 

4.3076E-02 

16 

4.8407E-02 

2.4593E-02 

3.8322E-02 

3.4678E-02 

18 

3.8813E-02 

2.8195E-02 

3.5815E-02 

3. IL93E-C2 

20 

2. 99666-02 

3.2484E-02 

3. 1816E-02 

3.0635E-02 

22 

2.1642E-02 

3.6128E-02 

2.7326E-02 

3.0444E-02 

24 

1.4252E-02 

3. B556E-02 

2.2494E-02 

3.0315E-02 

26 

B.3574E-03 

3.9211E-02 

1.7654E-02 

2.9915E-02 

26 

3.9943E-03 

3.7723E-02 

1.2573E-02 

2.9144E-02 

30 

1.5358E-03 

3.4097E-02 

7.6122E-03 

2.8020E-02 

32 

3.7188E-04 

2.8049E-02 

2.6183E-03 

2.5803E-02 


THETA SUB ZERO I 62«50 


LAY. 

DIRECT 

DIFFUSE 

DIFFUSE 

NET 

NUM. 

FLUX 

downward 

UPWARD 

FLUX 

2 

4.0944E-01 

2.78376-04 

2.6822E-02 

3.6289E-01 

4 

3.8966E-01 

2.6952E-03 

2.4785E-02 

3.6757E-01 

6 

2.7804E-01 

7.9053E-03 

2.1151E-02 

2.6479E-01 

8 

6. 72586^02 

1.32706-02 

1.7279E-02 

6.3250E-02 

10 

4.4151E-02 

1.3613E-02 

1.7255E-02 

4.0509E-02 

12 

2.96o1E-02 

1.4070E-02 

1.7162E-02 

2.6569E-02 

14 

2.06636-02 

1. 46876-02 

1.6663E-02 

1.8467E-02 

16 

1.5346E-02 

1.5653E-02 

1.6126E-02 

1.4872E-02 

18 

1. 1565E-02 

1.68856-02 

1.4874E-02 

1.35756-02 

20 

8.2835E-03 

1.63026-02 

1.3047E-02 

1.3538E-02 

22 

5.4199E-03 

1.92856-02 

1. 1106E-02 

1.3599E-02 

24 

3. 1303E-03 

1.96306-02 

9.1362E-03 

1.3624E-02 

26 

1.54586-03 

1. 9182E-02 

7.23G8E-03 

1.3497E-02 

28 

5. /«45E-0^ 

1.78586-02 

5.24986-03 

1.3187E-02 

30 

1.61436-04 

1.5808E-02 

3.2585E-03 

1.27116-02 

32 

2.4030E-05 

1.28806-02 

1. 1485E-03 

1. 17556-02 


130 



NOOEL 

: 199 

WAVELENGTH 

: 0.3125 

LAV. 

DIRECT 

DIFFUSE 

DIFFUSE 

NET 

NUM. 

FLUX 

DOWNWARD 

UPWARD 

FLUX 

1 

3.0209E-01 

2.5664E-05 

4.6443E-01 

7.6652E-01 

3 

3.0257E-01 

5.1121E-04 

4.6480E-01 

7.6685E-01 

5 

3.1011E-01 

1.7484E-03 

4.7756E-01 

7.8592E-01 

7 

3.5A05E-01 

6.5305E-03 

5.5544E-0a 

9.0295E-01 

9 

4.3263E-01 

1.6302E-02 

7.0088E-01 

1.1172E+00 

11 

4.6718E-01 

2.3993E-02 

7.6462E-01 

1.2078E+00 

13 

5.0257E-01 

3.6457E-02 : 

8.2632E-01 

1.2924E+00 

15 

5.3627E-01 

5.576aE-02 

8.7794E-01 

1.3584E+00 

17 

5.6308E-01 

e.3 876Et-02 

9.1509E-0I 

1.3993E+00 

19 

6.0422E-01 

1.2775E-01 

9.4063E-01 

1.4L71E+00 

21 

6.5185E-01 

I.8636E“01 

9.6231E-01 

1.4273E+00 

23 

7.1808E-01 

2.6285E-01 

9.8123E-01 

1.4365E+00 

25 

8.1274E-01 

3.5H78E-01 

9.9339E-01 

1.4474E^00 

27 

9.5971E-01 

4.8214E-01 

9.9162E-01 

1.4692E<-00 

29 

l.2014E^00 

6.3844E-01 

9.4969E-01 

1.5126E4-00 

31 

1.6509E+00 

8.3673E-01 

7.8969E-01 

1.6039E+00 

33 

3.1416E^00 

1.0416EI-00 

3.7167E-05 

2. 1000E«-00 


SBAR = 0 

.33155 




ISOTROPIC GROUND ILLUMINATION FROM BELOW. 


LAY. 

DIRECT 

DIFFUSE 

DIFFUSE 

NET 

NUM. 

FLUX 

DOWNWARD 

UPWARD 

FLUX 

2 

3.0217E-01 

9.6959E-05 

4.6448E-01 

7.66566-01 

4 

3.0476E-01 

9.44376-04 

4.6844E-01 

7.7225E-01 

6 

3.2326E-01 

3.3426E-03 

5.0046E-01 

8.2038E-01 

8 

4.1631E-01 

1.3659E-02 

6.7040E-01 

1.0731E+00 

10 

4.4975E-01 

1.9696E-02 

7.3273E-01 

1.162BE+00 

12 

4.8468E-01 

2.9602E-02 

7.9559E-01 

1.2507E+00 

14 

5. 1977E-01 

4.5019E-02 

8.540LE-01 

1.3288E+00 

16 

5.5190E-01 

6.8576E-02 

8.9753E-01 

1.3808E'*-00 

18 

5.8506E-01 

1.0325E-01 

9.2913E-01 

1.4109E+00 

20 

6.2635E-01 

1.5556E-01 

9.5177E-01 

1.4229E+00 

22 

6.8225E-01 

2.2264E-01 

9.72316-01 

1.4319E+00 

24 

7.6130E-01 

3.0843E-01 

9.8842E-01 

1.4413E+00 

26 

8.7638E-01 

4. 1508E-01 

9.9572E-01 

1.4570E«-00 

28 

l.0667E*^00 

5.5741E-01 

9.7788E-01 

1.4872E*^00 

30 

1.3849E+-00 

7.3320E-01 

8.9376E-01 

1.54546+00 

32 

2.0806E+00 

9.3579E-01 

5.9043E-01 

1. 73536*00 


MODEL NUMBER 


199 


WAVELENGTH 


0.3125 


0-TH FOURIER COMPONENT OF INTENSITY OF THE RADIATION EMERGENT AT THE TOP ( R =0.0 I FOR THETA SUB 2ER0 » 


THETA 

AMU 

0.0 

45.00 

60.00 

70.00 

75.60 

79,60 

82.50 

84.70 

86.70 

90.00 

0.0 

1.000 

1.378E-01 

8.902E-02 

5.557E-02 

3.064E-02 

1.7396-02 

9.552E-03 

5.3766-03 

3.2426-03 

2. 0086-03 

8. 6746-04 

3.5 

0.998 

1.377E-01 

8. 9056-02 

5.562E-02 

3.068E-02 

1.742E-02 

9.5716-03 

5. 3896-03 

3.2516-03 

2.0146-03 

8,7006-04 

6.9 

0.993 

1.374E-0I 

0.915E-Q2 

5.5786-02 

3.081E-02 

1. 7516-02 

9.6296-03 

5.426 6-03 

3.2766-03 

2.0316-03 

8. 7796-04 

10.4 

0. 984 

I.371E-01 

8.932E-02 

5.6046-02 

3.102E-02 

1.7666-02 

9.7256-03 

5.4896-03 

3.3186-03 

2.0606-03 

8,9126-04 

13.8 

0.971 

1.3665-01 

8.955E-02 

5.6416-02 

3. 132E-02 

1.7876-02 

9.8606-03 

5.577 6-03 

3.3796-03 

2.1016-03 

9. 1006-04 

17.3 

0.955 

1.361E-01 

8.984E-02 

5.6076-02 

3.1706-02 

1,8136-02 

1. 0046-02 

5.6926-03 

3.4576-03 

2.15VE-03 

9.3486-04 

20.8 

0.935 

1.3546-01 

9.018E-G2 

5.7436-02 

3.2166-02 

1. 8466-02 

1. 0256-02 

5.836E-03 

3,5556-03 

2.2216-03 

9. 6596-04 

24.3 

0.911 

1.3456-01 

9.056E-02 

5. 0096-02 

3. 2716-02 

1.8856-02 

1.0516-02 

6.008 E-:03 

3.6746-03 

2.3026-03 

1.0046-03 

27.9 

0.004 

1. 3356-01 

9 .0976-02 

5.8826-02 

3. 3346-02 

1.9306-02 

1.0826-02 

6.213E-03 

3,8166-03 

2.4006-03 

1 .0506-03 

31.5 

0.85 3 

1.323E-01 

9. 140E-02 

5.964E-02 

3. 4046-02 

1.9826-02 

1. 1176-02 

6.451E-03 

3. 9836-03 

2.5166-03 

1.1C4E-03 

35.1 

0.818 

1.3096-01 

9.18 16-02 

6.051E-02 

3.482E-02 

2.0406-02 

1.1576-02 

6. 7276-03 

4.1796-03 

2. 6536-03 

1.1696-03 

38.8 

0.780 

1.2926-01 

9.217E-0? 

6.1416-02 

3.5666-02 

2.1046-02 

1.2026-02 

7.04oE-03 

4.4086-03 

2. 8146-03 

1.2466-03 

42.5 

0.737 

1.2726-01 

9.2426-02 

6.2326-02 

3.656E-02 

2.1756-02 

1.2546-02 

7.4146-03 

4.6/66-03 

3.0056-03 

1.3386-03 

46.4 

0.690 

1.247E-01 

9.2466-02 

6.316F-02 

3.7486-02 

2.2516-02 

1.3116-02 

7.8396-03 

4.9936-03 

3.2346-03 

1.4496-03 

50. 3 

,0.6 39 

1.2176-01 

9.2156-02 

6.385E-02 

3.039E-O2 

2.3326-02 

I. 3766-02 

8.3356-03 

5. 3706-03 

3. 5116-03 

1.586C-03 

54.4 

0.562 

1.1776-01 

9. 1236-02 

6.4246-02 

3.923E-02 

2.41 76-02 

1.449E-02 

8.919 E-03 

5.8306-03 

3.8556-03 

1.7586-03 

50.7 

0.519 

1.1236-01 

8. 9306-02 

6.4066-02 

3.988E-02 

2.5026-02 

1. 5316-02 

9.6256-03 

6.4086-03 

4.3006-03 

1.9866-03 

63.3 

0.449 

1.0445-01 

8.5546-02 

6.2 lttE-02 

4.00^E-02 

2.5796-02 

1.6246-02 

1.0516-02 

7.1726-03 

4.9066-03 

2. 3056-03 


CONTRIBUTION ( MULTIPLIED BY ( 1-R*SBAR)/R) DUE TO ISOTROPIC ILLUMINATION FROM BELOW. 


0.0 

1.000 

1,4006-01 

7.0436-02 

3.3056-02 

1.355E-02 

6.1926-03 

2. 7 76 E-03 

1.2696-03 

6.2196-04 

3.1906-04 

1.181E-04 

3.5 

0.998 

1.3986-01 

7.0326-02 

3. jOOE-02 

1. 3536-02 

6.1826-03 

2.7726-03 

1.267 6-03 

6.2096-04 

3.1856-04 

1.1796-04 

6.9 

0.993 

1.3916-01 

6.9986-02 

3.2846-02 

1.346E-02 

6.152E-03 

2.7586-03 

1.2616-03 

6.1796-04 

3.170E-04 

1.1736-04 

10.4 

0.984 

1.3796-01 

6.9416-02 

3.2586-02 

1.336E-02 

6^1026-03 

2,7366-03 

1.2516-03 

6.1296-04 

3.144E-04 

1.1636-04 

n .8 

0,971 

1.3646-01 

6.86 lE-02 

3.220E-02 

1.320E-02 

6.0326-03 

2.7046-03 

1.236 E-03 

6.0586-04 

3. 1086-04 

1.1506-04 

17.3 

0.955 

1.3436-01 

6.7576-02 

3.1716-02 

1.300E-02 

5.9406-03 

2.6636-03 

1.2186-03 

5. 9666-04 

3.0606-04 

1.1336-04 

20.8 

0.935 

1.3176-01 

6.6276-02 

3. 1106-02 

1.275E-02 

5.8266-03 

2.6126-03 

1.1946-03 

5.652E-U4 

3. 0026-04 

l.llIF-04 

24.3 

0.911 

1,2866-01 

6.4716-02 

3.037F-02 

1.245E-02 

5. 6896-03 

2.5516-03 

1.1666-03 

5.714E-04 

2.931E-04 

1.0856-04 

27.9 

0.084 

1.2496-01 

6.2876-02 

2.9506-02 

1.2106-02 

5.5276-03 

2.4706-03 

1.1336-03 

5.552E-04 

2.8486-04 

1 .0546-04 

31.5 

0.053 

I. 2076-01 

6.07^E-02 

2.8506-02 

1. 169E-02 

5. 3406-03 

2.394E-0J 

1.0956-03 

5.363E-04 

2.7516-04 

1.0186-04 

3 3.1 

0.818 

1, 1586-01 

5.3286-02 

2.7356-02 

1.121E-02 

5.1236-03 

2.2976-03 

1.05UE-03 

5.1466-04 

2.6406-04 

9,7696-05 

30.8 

0.780 

1 . 102 E -01 

5. 5476-02 

2 . 6036— 02 

1.0676-02 

4.8766-03 

2.1866-03 

9.996E-04 

4.8986-04 

2.5126-04 

9.2976-05 

42.5 

0.737 

1.0396-01 

5.227E-02 

2.4536-02 

1.0066-02 

4.5956-03 

2.0606-03 

9,^206-04 

4.6166-04 

2.3686-04 

8.7626-05 

46.4 

0.690 

9. 6ti86-02 

4.8656-02 

2. 2836-02 

9. 3 bO 6-0 3 

4.2766-03 

1.9176-03 

8.7676-04 

4.2956-04 

2.2036-04 

8.1546-05 

5). 3 

0.639 

8.8516-02 

4.4546-02 

2.0906-02 

8.5696-03 

3.9156-03 

1. 7556-03 

8.026E-04 

3.9336-04 

2,0176-04 

7,4656-05 

54.4 

0.3 82 

7. 9256-02 

3.9&8fc-02 

1.8716-02 

7.6726-03 

3.50:>E-03 

1.5726-03 

7.1866-04 

3.5216-04 

1. 8066-04 

6.6846-05 

58.7 

0.519 

6.8706-02 

3.4576-02 

1. 6226-02 

6.6516-03 

3.0396-03 

1.363E-Q3 

6.2306-04 

3.05 3c— 04 

1 . 5666—04 

5.7956-05 

63.3 

0.449 

5. 6026-02 

2 .84 76-02 

1.33 76-02 

5.4816-03 

2.5046-03 

1 .1236—03 

5 .1 346-04 

2.5166-04 

1.2906-04 

4.775E-05 


S8AR 


0.32155 


